/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / viper / viper-ex.elc.z / viper-ex.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 34 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:42 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 69 70 65 |s-20.3/l|isp/vipe|
|000000a0| 72 2f 76 69 70 65 72 2d | 65 78 2e 65 6c 0a 3b 3b |r/viper-|ex.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 76 69 70 65 72 |  (error| "`viper|
|000001f0| 2d 65 78 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |-ex.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 0b | 42 13 c4 0b 42 13 c5 0b | "..!...|B...B...|
|00000270| 42 13 c6 0b 42 13 c7 0b | 42 13 c8 0b 42 13 c9 0b |B...B...|B...B...|
|00000280| 42 13 ca 0b 42 13 cb 0b | 42 13 cc 0b 42 13 cd 0b |B...B...|B...B...|
|00000290| 42 13 ce cf 21 88 d0 c1 | d1 d2 d3 d4 d5 d6 26 07 |B...!...|......&.|
|000002a0| 88 d7 16 18 d8 0b 42 13 | d9 0e 18 21 16 1a da 0b |......B.|...!....|
|000002b0| 42 13 db 16 1c dc 0b 42 | 13 dd 16 1e de 0b 42 13 |B......B|......B.|
|000002c0| df 16 20 e0 0b 42 13 e1 | e2 21 ac 83 d1 16 5c 22 |.. ..B..|.!....\"|
|000002d0| e2 0b 42 13 e1 e3 21 ac | 83 d1 16 23 e3 0b 42 13 |..B...!.|...#..B.|
|000002e0| e1 e4 21 ac 83 d1 16 24 | e4 0b 42 13 e1 e5 21 ac |..!....$|..B...!.|
|000002f0| 83 d1 16 25 e5 0b 42 13 | e1 e6 21 ac 83 d1 16 26 |...%..B.|..!....&|
|00000300| e6 0b 42 13 e1 e7 21 ac | 83 d1 16 27 e7 0b 42 13 |..B...!.|...'..B.|
|00000310| e1 e8 21 ac 83 d1 16 28 | e8 0b 42 13 e1 e9 21 ac |..!....(|..B...!.|
|00000320| 83 d1 16 29 e9 0b 42 13 | e1 ea 21 ac 83 d1 16 2a |...)..B.|..!....*|
|00000330| ea 0b 42 13 e1 eb 21 ac | 83 d1 16 2b eb 0b 42 13 |..B...!.|...+..B.|
|00000340| e1 ec 21 ac 83 d1 16 2c | ec 0b 42 13 d1 87 22 20 |..!....,|..B..." |
|00000350| 5b 70 72 6f 76 69 64 65 | 20 76 69 70 65 72 2d 65 |[provide| viper-e|
|00000360| 78 20 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |x read-f|ile-name|
|00000370| 2d 6d 61 70 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |-map cur|rent-loa|
|00000380| 64 2d 6c 69 73 74 20 76 | 69 70 65 72 2d 75 73 65 |d-list v|iper-use|
|00000390| 2d 72 65 67 69 73 74 65 | 72 20 76 69 70 65 72 2d |-registe|r viper-|
|000003a0| 73 2d 73 74 72 69 6e 67 | 20 76 69 70 65 72 2d 73 |s-string| viper-s|
|000003b0| 68 69 66 74 2d 77 69 64 | 74 68 20 76 69 70 65 72 |hift-wid|th viper|
|000003c0| 2d 65 78 2d 68 69 73 74 | 6f 72 79 20 76 69 70 65 |-ex-hist|ory vipe|
|000003d0| 72 2d 72 65 6c 61 74 65 | 64 2d 66 69 6c 65 73 2d |r-relate|d-files-|
|000003e0| 61 6e 64 2d 62 75 66 66 | 65 72 73 2d 72 69 6e 67 |and-buff|ers-ring|
|000003f0| 20 76 69 70 65 72 2d 6c | 6f 63 61 6c 2d 73 65 61 | viper-l|ocal-sea|
|00000400| 72 63 68 2d 73 74 61 72 | 74 2d 6d 61 72 6b 65 72 |rch-star|t-marker|
|00000410| 20 76 69 70 65 72 2d 65 | 78 70 65 72 74 2d 6c 65 | viper-e|xpert-le|
|00000420| 76 65 6c 20 76 69 70 65 | 72 2d 63 75 73 74 6f 6d |vel vipe|r-custom|
|00000430| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 76 69 70 65 72 |-file-na|me viper|
|00000440| 2d 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 |-case-fo|ld-searc|
|00000450| 68 20 65 78 70 6c 69 63 | 69 74 2d 73 68 65 6c 6c |h explic|it-shell|
|00000460| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 72 65 71 75 69 |-file-na|me requi|
|00000470| 72 65 20 76 69 70 65 72 | 2d 75 74 69 6c 20 63 75 |re viper|-util cu|
|00000480| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 67 72 6f |stom-dec|lare-gro|
|00000490| 75 70 20 6e 69 6c 20 22 | 56 69 70 65 72 20 73 75 |up nil "|Viper su|
|000004a0| 70 70 6f 72 74 20 66 6f | 72 20 45 78 20 63 6f 6d |pport fo|r Ex com|
|000004b0| 6d 61 6e 64 73 22 20 3a | 70 72 65 66 69 78 20 22 |mands" :|prefix "|
|000004c0| 65 78 2d 22 20 3a 67 72 | 6f 75 70 20 76 69 70 65 |ex-" :gr|oup vipe|
|000004d0| 72 20 22 20 2a 65 78 2d | 77 6f 72 6b 69 6e 67 2d |r " *ex-|working-|
|000004e0| 73 70 61 63 65 2a 22 20 | 76 69 70 65 72 2d 65 78 |space*" |viper-ex|
|000004f0| 2d 77 6f 72 6b 2d 62 75 | 66 2d 6e 61 6d 65 20 67 |-work-bu|f-name g|
|00000500| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00000510| 20 76 69 70 65 72 2d 65 | 78 2d 77 6f 72 6b 2d 62 | viper-e|x-work-b|
|00000520| 75 66 20 22 20 2a 65 78 | 2d 74 6d 70 2a 22 20 76 |uf " *ex|-tmp*" v|
|00000530| 69 70 65 72 2d 65 78 2d | 74 6d 70 2d 62 75 66 2d |iper-ex-|tmp-buf-|
|00000540| 6e 61 6d 65 20 28 28 22 | 21 22 29 20 28 22 3d 22 |name (("|!") ("="|
|00000550| 29 20 28 22 3e 22 29 20 | 28 22 26 22 29 20 28 22 |) (">") |("&") ("|
|00000560| 7e 22 29 20 28 22 79 61 | 6e 6b 22 29 20 28 22 78 |~") ("ya|nk") ("x|
|00000570| 69 74 22 29 20 28 22 57 | 57 72 69 74 65 22 29 20 |it") ("W|Write") |
|00000580| 28 22 57 72 69 74 65 22 | 29 20 28 22 77 72 69 74 |("Write"|) ("writ|
|00000590| 65 22 29 20 28 22 77 71 | 22 29 20 28 22 76 69 73 |e") ("wq|") ("vis|
|000005a0| 75 61 6c 22 29 20 28 22 | 76 65 72 73 69 6f 6e 22 |ual") ("|version"|
|000005b0| 29 20 28 22 76 67 6c 6f | 62 61 6c 22 29 20 28 22 |) ("vglo|bal") ("|
|000005c0| 75 6e 6d 61 70 22 29 20 | 28 22 75 6e 64 6f 22 29 |unmap") |("undo")|
|000005d0| 20 28 22 74 61 67 22 29 | 20 28 22 74 72 61 6e 73 | ("tag")| ("trans|
|000005e0| 66 65 72 22 29 20 28 22 | 73 75 73 70 65 6e 64 22 |fer") ("|suspend"|
|000005f0| 29 20 28 22 73 75 62 73 | 74 69 74 75 74 65 22 29 |) ("subs|titute")|
|00000600| 20 28 22 73 75 62 6d 69 | 74 52 65 70 6f 72 74 22 | ("submi|tReport"|
|00000610| 29 20 28 22 73 74 6f 70 | 22 29 20 28 22 73 72 22 |) ("stop|") ("sr"|
|00000620| 29 20 28 22 73 6f 75 72 | 63 65 22 29 20 28 22 73 |) ("sour|ce") ("s|
|00000630| 68 65 6c 6c 22 29 20 28 | 22 73 65 74 22 29 20 28 |hell") (|"set") (|
|00000640| 22 72 65 77 69 6e 64 22 | 29 20 28 22 72 65 63 6f |"rewind"|) ("reco|
|00000650| 76 65 72 22 29 20 28 22 | 72 65 61 64 22 29 20 28 |ver") ("|read") (|
|00000660| 22 71 75 69 74 22 29 20 | 28 22 70 77 64 22 29 20 |"quit") |("pwd") |
|00000670| 28 22 70 75 74 22 29 20 | 28 22 70 72 65 73 65 72 |("put") |("preser|
|00000680| 76 65 22 29 20 28 22 50 | 72 65 76 69 6f 75 73 52 |ve") ("P|reviousR|
|00000690| 65 6c 61 74 65 64 46 69 | 6c 65 22 29 20 28 22 52 |elatedFi|le") ("R|
|000006a0| 65 6c 61 74 65 64 46 69 | 6c 65 22 29 20 28 22 6e |elatedFi|le") ("n|
|000006b0| 65 78 74 22 29 20 28 22 | 4e 65 78 74 22 29 20 28 |ext") ("|Next") (|
|000006c0| 22 6d 6f 76 65 22 29 20 | 28 22 6d 61 72 6b 22 29 |"move") |("mark")|
|000006d0| 20 28 22 6d 61 70 22 29 | 20 28 22 6b 6d 61 72 6b | ("map")| ("kmark|
|000006e0| 22 29 20 28 22 6a 6f 69 | 6e 22 29 20 28 22 68 65 |") ("joi|n") ("he|
|000006f0| 6c 70 22 29 20 28 22 67 | 6f 74 6f 22 29 20 28 22 |lp") ("g|oto") ("|
|00000700| 67 6c 6f 62 61 6c 22 29 | 20 28 22 66 69 6c 65 22 |global")| ("file"|
|00000710| 29 20 28 22 65 64 69 74 | 22 29 20 28 22 64 65 6c |) ("edit|") ("del|
|00000720| 65 74 65 22 29 20 28 22 | 63 6f 70 79 22 29 20 28 |ete") ("|copy") (|
|00000730| 22 63 68 64 69 72 22 29 | 20 28 22 63 64 22 29 20 |"chdir")| ("cd") |
|00000740| 28 22 42 75 66 66 65 72 | 22 29 20 28 22 62 75 66 |("Buffer|") ("buf|
|00000750| 66 65 72 22 29 20 28 22 | 61 72 67 73 22 29 29 20 |fer") ("|args")) |
|00000760| 65 78 2d 74 6f 6b 65 6e | 2d 61 6c 69 73 74 20 28 |ex-token|-alist (|
|00000770| 28 22 77 72 61 70 73 63 | 61 6e 22 29 20 28 22 77 |("wrapsc|an") ("w|
|00000780| 73 22 29 20 28 22 77 72 | 61 70 6d 61 72 67 69 6e |s") ("wr|apmargin|
|00000790| 22 29 20 28 22 77 6d 22 | 29 20 28 22 74 61 62 73 |") ("wm"|) ("tabs|
|000007a0| 74 6f 70 2d 67 6c 6f 62 | 61 6c 22 29 20 28 22 74 |top-glob|al") ("t|
|000007b0| 73 2d 67 22 29 20 28 22 | 74 61 62 73 74 6f 70 22 |s-g") ("|tabstop"|
|000007c0| 29 20 28 22 74 73 22 29 | 20 28 22 73 68 6f 77 6d |) ("ts")| ("showm|
|000007d0| 61 74 63 68 22 29 20 28 | 22 73 6d 22 29 20 28 22 |atch") (|"sm") ("|
|000007e0| 73 68 69 66 74 77 69 64 | 74 68 22 29 20 28 22 73 |shiftwid|th") ("s|
|000007f0| 77 22 29 20 28 22 73 68 | 65 6c 6c 22 29 20 28 22 |w") ("sh|ell") ("|
|00000800| 73 68 22 29 20 28 22 72 | 65 61 64 6f 6e 6c 79 22 |sh") ("r|eadonly"|
|00000810| 29 20 28 22 72 6f 22 29 | 20 28 22 6e 6f 77 72 61 |) ("ro")| ("nowra|
|00000820| 70 73 63 61 6e 22 29 20 | 28 22 6e 6f 77 73 22 29 |pscan") |("nows")|
|00000830| 20 28 22 6e 6f 73 68 6f | 77 6d 61 74 63 68 22 29 | ("nosho|wmatch")|
|00000840| 20 28 22 6e 6f 73 6d 22 | 29 20 28 22 6e 6f 72 65 | ("nosm"|) ("nore|
|00000850| 61 64 6f 6e 6c 79 22 29 | 20 28 22 6e 6f 72 6f 22 |adonly")| ("noro"|
|00000860| 29 20 28 22 6e 6f 6d 61 | 67 69 63 22 29 20 28 22 |) ("noma|gic") ("|
|00000870| 6e 6f 6d 61 22 29 20 28 | 22 6e 6f 69 67 6e 6f 72 |noma") (|"noignor|
|00000880| 65 63 61 73 65 22 29 20 | 28 22 6e 6f 69 63 22 29 |ecase") |("noic")|
|00000890| 20 28 22 6e 6f 61 75 74 | 6f 69 6e 64 65 6e 74 2d | ("noaut|oindent-|
|000008a0| 67 6c 6f 62 61 6c 22 29 | 20 28 22 6e 6f 61 69 2d |global")| ("noai-|
|000008b0| 67 22 29 20 28 22 6e 6f | 61 75 74 6f 69 6e 64 65 |g") ("no|autoinde|
|000008c0| 6e 74 22 29 20 28 22 6e | 6f 61 69 22 29 20 28 22 |nt") ("n|oai") ("|
|000008d0| 6d 61 67 69 63 22 29 20 | 28 22 6d 61 22 29 20 28 |magic") |("ma") (|
|000008e0| 22 69 67 6e 6f 72 65 63 | 61 73 65 22 29 20 28 22 |"ignorec|ase") ("|
|000008f0| 69 63 22 29 20 28 22 61 | 75 74 6f 69 6e 64 65 6e |ic") ("a|utoinden|
|00000900| 74 2d 67 6c 6f 62 61 6c | 22 29 20 28 22 61 69 2d |t-global|") ("ai-|
|00000910| 67 22 29 20 28 22 61 75 | 74 6f 69 6e 64 65 6e 74 |g") ("au|toindent|
|00000920| 22 29 20 28 22 61 69 22 | 29 20 28 22 61 6c 6c 22 |") ("ai"|) ("all"|
|00000930| 29 29 20 65 78 2d 76 61 | 72 69 61 62 6c 65 2d 61 |)) ex-va|riable-a|
|00000940| 6c 69 73 74 20 62 6f 75 | 6e 64 70 20 65 78 2d 74 |list bou|ndp ex-t|
|00000950| 6f 6b 65 6e 20 65 78 2d | 74 6f 6b 65 6e 2d 74 79 |oken ex-|token-ty|
|00000960| 70 65 20 65 78 2d 61 64 | 64 72 65 73 73 65 73 20 |pe ex-ad|dresses |
|00000970| 65 78 2d 66 6c 61 67 20 | 65 78 2d 62 75 66 66 65 |ex-flag |ex-buffe|
|00000980| 72 20 65 78 2d 63 6f 75 | 6e 74 20 65 78 2d 67 2d |r ex-cou|nt ex-g-|
|00000990| 66 6c 61 67 20 65 78 2d | 67 2d 76 61 72 69 61 6e |flag ex-|g-varian|
|000009a0| 74 20 65 78 2d 72 65 67 | 2d 65 78 70 20 65 78 2d |t ex-reg|-exp ex-|
|000009b0| 72 65 70 6c 20 65 78 2d | 67 2d 70 61 74 5d 20 38 |repl ex-|g-pat] 8|
|000009c0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|000009d0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 65 78 2d 75 |e-variab|le 'ex-u|
|000009e0| 6e 69 78 2d 74 79 70 65 | 2d 73 68 65 6c 6c 20 27 |nix-type|-shell '|
|000009f0| 28 6c 65 74 20 28 28 63 | 61 73 65 2d 66 6f 6c 64 |(let ((c|ase-fold|
|00000a00| 2d 73 65 61 72 63 68 20 | 74 29 29 20 28 61 6e 64 |-search |t)) (and|
|00000a10| 20 28 73 74 72 69 6e 67 | 70 20 73 68 65 6c 6c 2d | (string|p shell-|
|00000a20| 66 69 6c 65 2d 6e 61 6d | 65 29 20 28 73 74 72 69 |file-nam|e) (stri|
|00000a30| 6e 67 2d 6d 61 74 63 68 | 20 28 63 6f 6e 63 61 74 |ng-match| (concat|
|00000a40| 20 22 5c 5c 28 22 20 22 | 63 73 68 24 5c 5c 7c 63 | "\\(" "|csh$\\|c|
|00000a50| 73 68 2e 65 78 65 24 22 | 20 22 5c 5c 7c 22 20 22 |sh.exe$"| "\\|" "|
|00000a60| 6b 73 68 24 5c 5c 7c 6b | 73 68 2e 65 78 65 24 22 |ksh$\\|k|sh.exe$"|
|00000a70| 20 22 5c 5c 7c 22 20 22 | 5e 73 68 24 5c 5c 7c 73 | "\\|" "|^sh$\\|s|
|00000a80| 68 2e 65 78 65 24 22 20 | 22 5c 5c 7c 22 20 22 5b |h.exe$" |"\\|" "[|
|00000a90| 5e 61 2d 7a 5d 73 68 24 | 5c 5c 7c 5b 5e 61 2d 7a |^a-z]sh$|\\|[^a-z|
|00000aa0| 5d 73 68 2e 65 78 65 24 | 22 20 22 5c 5c 7c 22 20 |]sh.exe$|" "\\|" |
|00000ab0| 22 62 61 73 68 24 5c 5c | 7c 62 61 73 68 2e 65 78 |"bash$\\||bash.ex|
|00000ac0| 65 24 22 20 22 5c 5c 29 | 22 29 20 73 68 65 6c 6c |e$" "\\)|") shell|
|00000ad0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 29 29 29 20 22 49 |-file-na|me))) "I|
|00000ae0| 73 20 74 68 65 20 75 73 | 65 72 20 75 73 69 6e 67 |s the us|er using|
|00000af0| 20 61 20 75 6e 69 78 2d | 74 79 70 65 20 73 68 65 | a unix-|type she|
|00000b00| 6c 6c 20 75 6e 64 65 72 | 20 61 20 6e 6f 6e 2d 4f |ll under| a non-O|
|00000b10| 53 3f 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |S?" :typ|e 'boole|
|00000b20| 61 6e 20 3a 67 72 6f 75 | 70 20 27 76 69 70 65 72 |an :grou|p 'viper|
|00000b30| 2d 65 78 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |-ex).(cu|stom-dec|
|00000b40| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 65 |lare-var|iable 'e|
|00000b50| 78 2d 75 6e 69 78 2d 74 | 79 70 65 2d 73 68 65 6c |x-unix-t|ype-shel|
|00000b60| 6c 2d 6f 70 74 69 6f 6e | 73 20 27 28 6c 65 74 20 |l-option|s '(let |
|00000b70| 28 28 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |((case-f|old-sear|
|00000b80| 63 68 20 74 29 29 20 28 | 69 66 20 65 78 2d 75 6e |ch t)) (|if ex-un|
|00000b90| 69 78 2d 74 79 70 65 2d | 73 68 65 6c 6c 20 28 63 |ix-type-|shell (c|
|00000ba0| 6f 6e 64 20 28 28 73 74 | 72 69 6e 67 2d 6d 61 74 |ond ((st|ring-mat|
|00000bb0| 63 68 20 22 5c 5c 28 63 | 73 68 24 5c 5c 7c 63 73 |ch "\\(c|sh$\\|cs|
|00000bc0| 68 2e 65 78 65 24 5c 5c | 29 22 20 73 68 65 6c 6c |h.exe$\\|)" shell|
|00000bd0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 29 20 22 2d 66 22 |-file-na|me) "-f"|
|00000be0| 29 20 28 28 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |) ((stri|ng-match|
|00000bf0| 20 22 5c 5c 28 62 61 73 | 68 24 5c 5c 7c 62 61 73 | "\\(bas|h$\\|bas|
|00000c00| 68 2e 65 78 65 24 5c 5c | 29 22 20 73 68 65 6c 6c |h.exe$\\|)" shell|
|00000c10| 2d 66 69 6c 65 2d 6e 61 | 6d 65 29 20 22 2d 6e 6f |-file-na|me) "-no|
|00000c20| 70 72 6f 66 69 6c 65 22 | 29 29 29 29 20 22 4f 70 |profile"|)))) "Op|
|00000c30| 74 69 6f 6e 73 20 74 6f | 20 70 61 73 73 20 74 6f |tions to| pass to|
|00000c40| 20 74 68 65 20 55 6e 69 | 78 2d 73 74 79 6c 65 20 | the Uni|x-style |
|00000c50| 73 68 65 6c 6c 2e 20 5c | 6e 44 6f 6e 27 74 20 70 |shell. \|nDon't p|
|00000c60| 75 74 20 60 2d 63 27 20 | 68 65 72 65 2c 20 61 73 |ut `-c' |here, as|
|00000c70| 20 69 74 20 69 73 20 61 | 64 64 65 64 20 61 75 74 | it is a|dded aut|
|00000c80| 6f 6d 61 74 69 63 61 6c | 6c 79 2e 22 20 3a 74 79 |omatical|ly." :ty|
|00000c90| 70 65 20 27 73 74 72 69 | 6e 67 20 3a 67 72 6f 75 |pe 'stri|ng :grou|
|00000ca0| 70 20 27 76 69 70 65 72 | 2d 65 78 29 0a 28 62 79 |p 'viper|-ex).(by|
|00000cb0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 9e 5c 6e |te-code |"..!..\n|
|00000cc0| ab 83 c3 aa 97 0c c5 61 | ab 83 c6 aa 8f 0e 07 ab |.......a|........|
|00000cd0| 83 c6 aa 88 0e 08 ab 83 | c3 aa 81 c3 11 c1 0e 09 |........|........|
|00000ce0| 42 16 09 c0 ca 21 ac 83 | cb 16 5c 6e ca 0e 09 42 |B....!..|..\n...B|
|00000cf0| 16 09 c0 cc 21 ac 83 cb | 16 0c cc 0e 09 42 16 09 |....!...|.....B..|
|00000d00| c0 cd 21 ac 83 cb 16 0d | cd 0e 09 42 16 09 c0 ce |..!.....|...B....|
|00000d10| 21 ac 83 cb 16 0e ce 0e | 09 42 16 09 c0 cf 21 ac |!.......|.B....!.|
|00000d20| 83 cb 16 0f cf 0e 09 42 | 16 09 c0 d0 21 ac 83 cb |.......B|....!...|
|00000d30| 16 10 d0 0e 09 42 16 09 | c0 d1 21 ac 83 d2 16 11 |.....B..|..!.....|
|00000d40| d1 0e 09 42 16 09 c0 d3 | 21 ac 83 cb 16 13 d3 0e |...B....|!.......|
|00000d50| 09 42 16 09 cb 87 22 20 | 5b 62 6f 75 6e 64 70 20 |.B...." |[boundp |
|00000d60| 65 78 2d 6e 6f 6e 74 72 | 69 76 69 61 6c 2d 66 69 |ex-nontr|ivial-fi|
|00000d70| 6e 64 2d 66 69 6c 65 2d | 66 75 6e 63 74 69 6f 6e |nd-file-|function|
|00000d80| 20 65 78 2d 75 6e 69 78 | 2d 74 79 70 65 2d 73 68 | ex-unix|-type-sh|
|00000d90| 65 6c 6c 20 76 69 70 65 | 72 2d 65 78 2d 6e 6f 6e |ell vipe|r-ex-non|
|00000da0| 74 72 69 76 69 61 6c 2d | 66 69 6e 64 2d 66 69 6c |trivial-|find-fil|
|00000db0| 65 2d 75 6e 69 78 20 73 | 79 73 74 65 6d 2d 74 79 |e-unix s|ystem-ty|
|00000dc0| 70 65 20 65 6d 78 20 76 | 69 70 65 72 2d 65 78 2d |pe emx v|iper-ex-|
|00000dd0| 6e 6f 6e 74 72 69 76 69 | 61 6c 2d 66 69 6e 64 2d |nontrivi|al-find-|
|00000de0| 66 69 6c 65 2d 6d 73 20 | 76 69 70 65 72 2d 6d 73 |file-ms |viper-ms|
|00000df0| 2d 73 74 79 6c 65 2d 6f | 73 2d 70 20 76 69 70 65 |-style-o|s-p vipe|
|00000e00| 72 2d 76 6d 73 2d 6f 73 | 2d 70 20 63 75 72 72 65 |r-vms-os|-p curre|
|00000e10| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 65 78 2d |nt-load-|list ex-|
|00000e20| 74 61 67 20 6e 69 6c 20 | 65 78 2d 66 69 6c 65 20 |tag nil |ex-file |
|00000e30| 65 78 2d 76 61 72 69 61 | 6e 74 20 65 78 2d 6f 66 |ex-varia|nt ex-of|
|00000e40| 66 73 65 74 20 65 78 2d | 61 70 70 65 6e 64 20 65 |fset ex-|append e|
|00000e50| 78 2d 63 6d 64 66 69 6c | 65 20 65 78 2d 63 6d 64 |x-cmdfil|e ex-cmd|
|00000e60| 66 69 6c 65 2d 61 72 67 | 73 20 22 22 20 76 69 70 |file-arg|s "" vip|
|00000e70| 65 72 2d 6b 65 65 70 2d | 72 65 61 64 69 6e 67 2d |er-keep-|reading-|
|00000e80| 66 69 6c 65 6e 61 6d 65 | 5d 20 32 29 0a 28 63 75 |filename|] 2).(cu|
|00000e90| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00000ea0| 69 61 62 6c 65 20 27 65 | 78 2d 63 79 63 6c 65 2d |iable 'e|x-cycle-|
|00000eb0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 27 74 20 |other-wi|ndow 't |
|00000ec0| 22 2a 49 66 20 74 2c 20 | 3a 6e 20 61 6e 64 20 3a |"*If t, |:n and :|
|00000ed0| 62 20 63 79 63 6c 65 73 | 20 74 68 72 6f 75 67 68 |b cycles| through|
|00000ee0| 20 66 69 6c 65 73 20 61 | 6e 64 20 62 75 66 66 65 | files a|nd buffe|
|00000ef0| 72 73 20 69 6e 20 6f 74 | 68 65 72 20 77 69 6e 64 |rs in ot|her wind|
|00000f00| 6f 77 2e 5c 6e 54 68 65 | 6e 20 3a 4e 20 61 6e 64 |ow.\nThe|n :N and|
|00000f10| 20 3a 42 20 63 79 63 6c | 65 73 20 69 6e 20 74 68 | :B cycl|es in th|
|00000f20| 65 20 63 75 72 72 65 6e | 74 20 77 69 6e 64 6f 77 |e curren|t window|
|00000f30| 2e 20 49 66 20 6e 69 6c | 2c 20 74 68 69 73 20 62 |. If nil|, this b|
|00000f40| 65 68 61 76 69 6f 72 20 | 69 73 5c 6e 72 65 76 65 |ehavior |is\nreve|
|00000f50| 72 73 65 64 2e 22 20 3a | 74 79 70 65 20 27 62 6f |rsed." :|type 'bo|
|00000f60| 6f 6c 65 61 6e 20 3a 67 | 72 6f 75 70 20 27 76 69 |olean :g|roup 'vi|
|00000f70| 70 65 72 2d 65 78 29 0a | 28 63 75 73 74 6f 6d 2d |per-ex).|(custom-|
|00000f80| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00000f90| 20 27 65 78 2d 63 79 63 | 6c 65 2d 74 68 72 6f 75 | 'ex-cyc|le-throu|
|00000fa0| 67 68 2d 6e 6f 6e 2d 66 | 69 6c 65 73 20 27 6e 69 |gh-non-f|iles 'ni|
|00000fb0| 6c 20 22 2a 43 79 63 6c | 65 20 74 68 72 6f 75 67 |l "*Cycl|e throug|
|00000fc0| 68 20 2a 73 63 72 61 74 | 63 68 2a 20 61 6e 64 20 |h *scrat|ch* and |
|00000fd0| 6f 74 68 65 72 20 62 75 | 66 66 65 72 73 20 74 68 |other bu|ffers th|
|00000fe0| 61 74 20 64 6f 6e 27 74 | 20 76 69 73 69 74 20 61 |at don't| visit a|
|00000ff0| 6e 79 20 66 69 6c 65 2e | 22 20 3a 74 79 70 65 20 |ny file.|" :type |
|00001000| 27 62 6f 6f 6c 65 61 6e | 20 3a 67 72 6f 75 70 20 |'boolean| :group |
|00001010| 27 76 69 70 65 72 2d 65 | 78 29 0a 28 62 79 74 65 |'viper-e|x).(byte|
|00001020| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c1 0b |-code ".|.!......|
|00001030| 42 13 c0 c4 21 ac 82 c2 | 14 c4 0b 42 13 c0 c5 21 |B...!...|...B...!|
|00001040| ac 82 c6 15 c5 0b 42 13 | c2 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00001050| 6e 64 70 20 76 69 70 65 | 72 2d 65 78 2d 6c 61 73 |ndp vipe|r-ex-las|
|00001060| 74 2d 73 68 65 6c 6c 2d | 63 6f 6d 20 6e 69 6c 20 |t-shell-|com nil |
|00001070| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00001080| 74 20 76 69 70 65 72 2d | 69 6e 63 6f 6d 70 6c 65 |t viper-|incomple|
|00001090| 74 65 2d 65 78 2d 63 6d | 64 20 76 69 70 65 72 2d |te-ex-cm|d viper-|
|000010a0| 6c 61 73 74 2d 65 78 2d | 70 72 6f 6d 70 74 20 22 |last-ex-|prompt "|
|000010b0| 22 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"] 2).(d|efalias |
|000010c0| 27 76 69 70 65 72 2d 63 | 68 65 63 6b 2d 73 75 62 |'viper-c|heck-sub|
|000010d0| 20 23 5b 28 73 74 72 29 | 20 22 08 47 89 19 5c 6e | #[(str)| ".G..\n|
|000010e0| 47 58 ab 8d 08 5c 6e c3 | 09 4f 98 ab 85 5c 6e 89 |GX...\n.|.O...\n.|
|000010f0| 10 aa 83 c4 89 15 29 87 | 22 20 5b 65 78 2d 74 6f |......).|" [ex-to|
|00001100| 6b 65 6e 20 6c 65 6e 67 | 74 68 20 73 74 72 20 30 |ken leng|th str 0|
|00001110| 20 6e 6f 6e 2d 63 6f 6d | 6d 61 6e 64 20 65 78 2d | non-com|mand ex-|
|00001120| 74 6f 6b 65 6e 2d 74 79 | 70 65 5d 20 35 5d 29 0a |token-ty|pe] 5]).|
|00001130| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00001140| 2d 67 65 74 2d 65 78 2d | 63 6f 6d 2d 73 75 62 72 |-get-ex-|com-subr|
|00001150| 20 23 5b 6e 69 6c 20 22 | c0 19 c2 60 21 88 c3 c4 | #[nil "|...`!...|
|00001160| 21 88 c5 16 06 60 c7 c8 | 21 7b 16 09 ca 20 88 cb |!....`..|!{... ..|
|00001170| cc 21 ab 9f cb cd 21 ab | 87 ce cf 21 88 82 64 03 |.!....!.|...!..d.|
|00001180| cb d0 21 ab 87 ce d1 21 | 88 82 64 03 ce d2 21 88 |..!....!|..d...!.|
|00001190| 82 64 03 cb d3 21 ab 87 | ce d4 21 88 82 64 03 cb |.d...!..|..!..d..|
|000011a0| d5 21 ab ab cb d6 21 ab | 87 ce d6 21 88 82 64 03 |.!....!.|...!..d.|
|000011b0| cb d7 21 ab 87 ce d8 21 | 88 82 64 03 cb d9 21 ab |..!....!|..d...!.|
|000011c0| 87 ce da 21 88 82 64 03 | ce db 21 88 82 64 03 cb |...!..d.|..!..d..|
|000011d0| dc 21 ab 87 ce dd 21 88 | 82 64 03 cb de 21 ab 87 |.!....!.|.d...!..|
|000011e0| ce df 21 88 82 64 03 cb | e0 21 ab 87 ce e1 21 88 |..!..d..|.!....!.|
|000011f0| 82 64 03 cb e2 21 ab 93 | cb e3 21 ab 87 ce e3 21 |.d...!..|..!....!|
|00001200| 88 82 64 03 ce e4 21 88 | 82 64 03 cb e5 21 ab 87 |..d...!.|.d...!..|
|00001210| ce e6 21 88 82 64 03 cb | e7 21 ab 87 ce e8 21 88 |..!..d..|.!....!.|
|00001220| 82 64 03 cb e9 21 ab 87 | ce ea 21 88 82 64 03 cb |.d...!..|..!..d..|
|00001230| eb 21 ab 87 ce ec 21 88 | 82 64 03 cb ed 21 ab 87 |.!....!.|.d...!..|
|00001240| ce ee 21 88 82 64 03 cb | ef 21 ab 9f cb f0 21 ab |..!..d..|.!....!.|
|00001250| 87 ce f0 21 88 82 64 03 | cb f1 21 ab 87 ce f2 21 |...!..d.|..!....!|
|00001260| 88 82 64 03 ce f3 21 88 | 82 64 03 cb f4 21 ab 8c |..d...!.|.d...!..|
|00001270| f5 16 09 f6 75 88 ca 20 | 88 82 64 03 cb f7 21 ab |....u.. |..d...!.|
|00001280| 87 ce f5 21 88 82 64 03 | cb f8 21 ab 93 cb f9 21 |...!..d.|..!....!|
|00001290| ab 87 ce fa 21 88 82 64 | 03 ce fb 21 88 82 64 03 |....!..d|...!..d.|
|000012a0| cb fc 21 ab 87 ce fd 21 | 88 82 64 03 cb fe 21 ab |..!....!|..d...!.|
|000012b0| 87 ce ff 21 88 82 64 03 | cb 81 40 00 21 ab b9 cb |...!..d.|..@.!...|
|000012c0| 81 41 00 21 ab 89 ce 81 | 42 00 21 88 82 64 03 cb |.A.!....|B.!..d..|
|000012d0| 81 43 00 21 ab 89 ce 81 | 44 00 21 88 82 64 03 cb |.C.!....|D.!..d..|
|000012e0| 81 45 00 21 ab 89 ce 81 | 46 00 21 88 82 64 03 ce |.E.!....|F.!..d..|
|000012f0| 81 47 00 21 88 82 64 03 | cb 81 48 00 21 ab 89 ce |.G.!..d.|..H.!...|
|00001300| 81 49 00 21 88 82 64 03 | cb 81 4a 00 21 ab 89 ce |.I.!..d.|..J.!...|
|00001310| 81 4b 00 21 88 82 64 03 | cb 81 4c 00 21 ab 89 ce |.K.!..d.|..L.!...|
|00001320| 81 4d 00 21 88 82 64 03 | cb 81 4e 00 21 ab a9 cb |.M.!..d.|..N.!...|
|00001330| 81 4f 00 21 ab 89 ce 81 | 50 00 21 88 82 64 03 cb |.O.!....|P.!..d..|
|00001340| 81 51 00 21 ab 89 ce 81 | 52 00 21 88 82 64 03 ce |.Q.!....|R.!..d..|
|00001350| 81 53 00 21 88 82 64 03 | cb 81 54 00 21 ab f9 cb |.S.!..d.|..T.!...|
|00001360| 81 55 00 21 ab 89 ce 81 | 56 00 21 88 82 64 03 cb |.U.!....|V.!..d..|
|00001370| 81 57 00 21 ab 89 ce 81 | 58 00 21 88 82 64 03 cb |.W.!....|X.!..d..|
|00001380| 81 59 00 21 ab 89 ce 81 | 5a 00 21 88 82 64 03 cb |.Y.!....|Z.!..d..|
|00001390| 81 5b 00 21 ab 89 ce 81 | 5b 00 21 88 82 64 03 cb |.[.!....|[.!..d..|
|000013a0| 81 5c 5c 00 21 ab 89 ce | 81 5d 00 21 88 82 64 03 |.\\.!...|.].!..d.|
|000013b0| cb 81 5e 00 21 ab 89 ce | 81 5f 00 21 88 82 64 03 |..^.!...|._.!..d.|
|000013c0| cb 81 60 00 21 ab 89 ce | 81 61 00 21 88 82 64 03 |..`.!...|.a.!..d.|
|000013d0| ce 81 62 00 21 88 82 64 | 03 cb 81 63 00 21 ab 99 |..b.!..d|...c.!..|
|000013e0| cb 81 64 00 21 ab 89 ce | 81 65 00 21 88 82 64 03 |..d.!...|.e.!..d.|
|000013f0| ce 81 66 00 21 88 82 64 | 03 cb 81 67 00 21 ab a9 |..f.!..d|...g.!..|
|00001400| cb 81 68 00 21 ab 89 ce | 81 69 00 21 88 82 64 03 |..h.!...|.i.!..d.|
|00001410| cb 81 6a 00 21 ab 89 ce | 81 6b 00 21 88 82 64 03 |..j.!...|.k.!..d.|
|00001420| ce 81 6c 00 21 88 82 64 | 03 cb 81 6d 00 21 ab a6 |..l.!..d|...m.!..|
|00001430| cb 81 6e 00 21 ab 88 ce | 81 6f 00 21 88 aa fe cb |..n.!...|.o.!....|
|00001440| 81 70 00 21 ab 88 ce 81 | 71 00 21 88 aa ef ce 81 |.p.!....|q.!.....|
|00001450| 72 00 21 88 aa e7 cb 81 | 73 00 21 ab 97 cb 81 74 |r.!.....|s.!....t|
|00001460| 00 21 ab 88 ce 81 74 00 | 21 88 aa d1 ce 81 75 00 |.!....t.|!.....u.|
|00001470| 21 88 aa c9 cb 81 76 00 | 21 ab 97 cb 81 77 00 21 |!.....v.|!....w.!|
|00001480| ab 88 ce 81 78 00 21 88 | aa b3 ce 81 79 00 21 88 |....x.!.|....y.!.|
|00001490| aa ab cb 81 7a 00 21 ab | 88 ce 81 7b 00 21 88 aa |....z.!.|...{.!..|
|000014a0| 9c cb 81 7c 00 21 ab 88 | ce 81 7d 00 21 88 aa 8d |...|.!..|..}.!...|
|000014b0| cb 81 7e 00 21 ab 86 ce | 81 7e 00 21 88 ca 20 29 |..~.!...|.~.!.. )|
|000014c0| 87 22 20 5b 6e 69 6c 20 | 63 61 73 65 2d 66 6f 6c |." [nil |case-fol|
|000014d0| 64 2d 73 65 61 72 63 68 | 20 73 65 74 2d 6d 61 72 |d-search| set-mar|
|000014e0| 6b 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |k re-sea|rch-forw|
|000014f0| 61 72 64 20 22 5b 61 2d | 7a 41 2d 5a 5d 5b 61 2d |ard "[a-|zA-Z][a-|
|00001500| 7a 41 2d 5a 5d 2a 22 20 | 63 6f 6d 6d 61 6e 64 20 |zA-Z]*" |command |
|00001510| 65 78 2d 74 6f 6b 65 6e | 2d 74 79 70 65 20 6d 61 |ex-token|-type ma|
|00001520| 72 6b 20 74 20 65 78 2d | 74 6f 6b 65 6e 20 65 78 |rk t ex-|token ex|
|00001530| 63 68 61 6e 67 65 2d 70 | 6f 69 6e 74 2d 61 6e 64 |change-p|oint-and|
|00001540| 2d 6d 61 72 6b 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-mark lo|oking-at|
|00001550| 20 22 61 22 20 22 61 62 | 22 20 76 69 70 65 72 2d | "a" "ab|" viper-|
|00001560| 63 68 65 63 6b 2d 73 75 | 62 20 22 61 62 62 72 65 |check-su|b "abbre|
|00001570| 76 69 61 74 65 22 20 22 | 61 72 22 20 22 61 72 67 |viate" "|ar" "arg|
|00001580| 73 22 20 22 61 70 70 65 | 6e 64 22 20 22 68 22 20 |s" "appe|nd" "h" |
|00001590| 22 68 65 6c 70 22 20 22 | 63 22 20 22 63 64 22 20 |"help" "|c" "cd" |
|000015a0| 22 63 68 22 20 22 63 68 | 64 69 72 22 20 22 63 6f |"ch" "ch|dir" "co|
|000015b0| 22 20 22 63 6f 70 79 22 | 20 22 63 68 61 6e 67 65 |" "copy"| "change|
|000015c0| 22 20 22 64 22 20 22 64 | 65 6c 65 74 65 22 20 22 |" "d" "d|elete" "|
|000015d0| 62 22 20 22 62 75 66 66 | 65 72 22 20 22 42 22 20 |b" "buff|er" "B" |
|000015e0| 22 42 75 66 66 65 72 22 | 20 22 65 22 20 22 65 78 |"Buffer"| "e" "ex|
|000015f0| 22 20 22 65 64 69 74 22 | 20 22 66 22 20 22 66 69 |" "edit"| "f" "fi|
|00001600| 6c 65 22 20 22 67 22 20 | 22 67 6c 6f 62 61 6c 22 |le" "g" |"global"|
|00001610| 20 22 69 22 20 22 69 6e | 73 65 72 74 22 20 22 6a | "i" "in|sert" "j|
|00001620| 22 20 22 6a 6f 69 6e 22 | 20 22 6c 22 20 22 6c 69 |" "join"| "l" "li|
|00001630| 73 74 22 20 22 6d 22 20 | 22 6d 61 70 22 20 22 6d |st" "m" |"map" "m|
|00001640| 61 72 22 20 22 6d 61 72 | 6b 22 20 22 6d 6f 76 65 |ar" "mar|k" "move|
|00001650| 22 20 22 6b 5b 61 2d 7a | 5d 5b 5e 61 2d 7a 5d 22 |" "k[a-z|][^a-z]"|
|00001660| 20 22 6b 6d 61 72 6b 22 | 20 31 20 22 6b 22 20 22 | "kmark"| 1 "k" "|
|00001670| 6e 22 20 22 6e 75 22 20 | 22 6e 75 6d 62 65 72 22 |n" "nu" |"number"|
|00001680| 20 22 6e 65 78 74 22 20 | 22 4e 22 20 22 4e 65 78 | "next" |"N" "Nex|
|00001690| 74 22 20 22 6f 22 20 22 | 6f 70 65 6e 22 20 22 70 |t" "o" "|open" "p|
|000016a0| 22 20 22 70 72 65 22 20 | 22 70 72 65 73 65 72 76 |" "pre" |"preserv|
|000016b0| 65 22 20 22 70 75 22 20 | 22 70 75 74 22 20 22 70 |e" "pu" |"put" "p|
|000016c0| 77 22 20 22 70 77 64 22 | 20 22 70 72 69 6e 74 22 |w" "pwd"| "print"|
|000016d0| 20 22 50 22 20 22 50 72 | 65 76 69 6f 75 73 52 65 | "P" "Pr|eviousRe|
|000016e0| 6c 61 74 65 64 46 69 6c | 65 22 20 22 52 22 20 22 |latedFil|e" "R" "|
|000016f0| 52 65 6c 61 74 65 64 46 | 69 6c 65 22 20 22 71 22 |RelatedF|ile" "q"|
|00001700| 20 22 71 75 69 74 22 20 | 22 72 22 20 22 72 65 63 | "quit" |"r" "rec|
|00001710| 22 20 22 72 65 63 6f 76 | 65 72 22 20 22 72 65 77 |" "recov|er" "rew|
|00001720| 22 20 22 72 65 77 69 6e | 64 22 20 22 72 65 61 64 |" "rewin|d" "read|
|00001730| 22 20 22 73 22 20 22 73 | 65 22 20 22 73 65 74 22 |" "s" "s|e" "set"|
|00001740| 20 22 73 68 22 20 22 73 | 68 65 6c 6c 22 20 22 73 | "sh" "s|hell" "s|
|00001750| 6f 22 20 22 73 6f 75 72 | 63 65 22 20 22 73 72 22 |o" "sour|ce" "sr"|
|00001760| 20 22 73 74 22 20 22 73 | 74 6f 70 22 20 22 73 75 | "st" "s|top" "su|
|00001770| 73 22 20 22 73 75 73 70 | 65 6e 64 22 20 22 73 75 |s" "susp|end" "su|
|00001780| 62 6d 22 20 22 73 75 62 | 6d 69 74 52 65 70 6f 72 |bm" "sub|mitRepor|
|00001790| 74 22 20 22 73 75 62 73 | 74 69 74 75 74 65 22 20 |t" "subs|titute" |
|000017a0| 22 74 22 20 22 74 61 22 | 20 22 74 61 67 22 20 22 |"t" "ta"| "tag" "|
|000017b0| 74 72 61 6e 73 66 65 72 | 22 20 22 75 22 20 22 75 |transfer|" "u" "u|
|000017c0| 6e 61 22 20 22 75 6e 61 | 62 62 72 65 76 69 61 74 |na" "una|bbreviat|
|000017d0| 65 22 20 22 75 6e 6d 22 | 20 22 75 6e 6d 61 70 22 |e" "unm"| "unmap"|
|000017e0| 20 22 75 6e 64 6f 22 20 | 22 76 22 20 22 76 65 22 | "undo" |"v" "ve"|
|000017f0| 20 22 76 65 72 73 69 6f | 6e 22 20 22 76 69 22 20 | "versio|n" "vi" |
|00001800| 22 76 69 73 75 61 6c 22 | 20 22 76 67 6c 6f 62 61 |"visual"| "vgloba|
|00001810| 6c 22 20 22 77 22 20 22 | 77 71 22 20 22 77 72 69 |l" "w" "|wq" "wri|
|00001820| 74 65 22 20 22 57 22 20 | 22 57 57 22 20 22 57 57 |te" "W" |"WW" "WW|
|00001830| 72 69 74 65 22 20 22 57 | 72 69 74 65 22 20 22 78 |rite" "W|rite" "x|
|00001840| 22 20 22 78 69 74 22 20 | 22 79 22 20 22 79 61 6e |" "xit" |"y" "yan|
|00001850| 6b 22 20 22 7a 22 5d 20 | 33 5d 29 0a 28 64 65 66 |k" "z"] |3]).(def|
|00001860| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 67 65 74 |alias 'v|iper-get|
|00001870| 2d 65 78 2d 74 6f 6b 65 | 6e 20 23 5b 6e 69 6c 20 |-ex-toke|n #[nil |
|00001880| 22 c0 8b 87 22 20 5b 28 | 28 62 79 74 65 2d 63 6f |"..." [(|(byte-co|
|00001890| 64 65 20 22 c0 09 21 89 | 12 71 88 c3 c4 77 88 c5 |de "..!.|.q...w..|
|000018a0| 1e 06 c7 c8 21 ab 8d c9 | 16 5c 6e cb 67 21 16 0c |....!...|.\n.g!..|
|000018b0| cd 75 82 fc 01 c7 ce 21 | ab 85 cf 20 82 fc 01 c7 |.u.....!|... ....|
|000018c0| d0 21 ab 8a cd 75 88 d1 | 89 16 5c 6e 82 fc 01 c7 |.!...u..|..\n....|
|000018d0| d2 21 ab aa d3 60 21 88 | d4 d5 21 88 0e 5c 6e d6 |.!...`!.|..!..\n.|
|000018e0| 61 ab 83 d7 aa 8a 0e 5c | 6e d8 61 ab 83 d9 aa 81 |a......\|n.a.....|
|000018f0| da 16 5c 6e db 60 dc c5 | 21 7b 21 89 16 0c 82 fc |..\n.`..|!{!.....|
|00001900| 01 c7 dd 21 ab 8a cd 75 | 88 de 89 16 5c 6e 82 fc |...!...u|....\n..|
|00001910| 01 c7 df 21 ab 8a cd 75 | 88 e0 89 16 5c 6e 82 fc |...!...u|....\n..|
|00001920| 01 c7 e1 21 ab b1 c7 e2 | 21 ac 85 c7 e3 21 ab 91 |...!....|!....!..|
|00001930| cd 75 88 e4 63 88 e5 cd | 21 88 d6 89 16 5c 6e 82 |.u..c...|!....\n.|
|00001940| fc 01 c7 e6 21 ab 8a cd | 75 88 d6 89 16 5c 6e 82 |....!...|u....\n.|
|00001950| fc 01 e7 0e 28 21 82 fc | 01 c7 e9 21 ab b1 c7 ea |....(!..|...!....|
|00001960| 21 ac 85 c7 eb 21 ab 91 | cd 75 88 e4 63 88 e5 cd |!....!..|.u..c...|
|00001970| 21 88 d8 89 16 5c 6e 82 | fc 01 c7 ec 21 ab 8a cd |!....\n.|....!...|
|00001980| 75 88 d8 89 16 5c 6e 82 | fc 01 e7 0e 28 21 82 fc |u....\n.|....(!..|
|00001990| 01 c7 ed 21 ab c9 cd 75 | 88 d3 60 21 88 c5 1e 2e |...!...u|..`!....|
|000019a0| 6c ac a1 0e 2e ab 9d d4 | ef 21 88 f0 1e 31 8a f2 |l.......|.!...1..|
|000019b0| 0e 31 c4 c5 23 29 ad 84 | 60 f3 95 55 29 ac 61 c4 |.1..#)..|`..U).a.|
|000019c0| 16 2e aa 5c 5c 29 e5 cd | 21 88 60 dc c5 21 7b 16 |...\\)..|!.`..!{.|
|000019d0| 0c c7 ed 21 ab 83 cd 75 | 88 f4 89 16 5c 6e 82 fc |...!...u|....\n..|
|000019e0| 01 c7 f5 21 ab c9 cd 75 | 88 d3 60 21 88 c5 1e 2e |...!...u|..`!....|
|000019f0| 6c ac ad 0e 2e ab a9 d4 | f6 21 88 f7 1e 31 8a f2 |l.......|.!...1..|
|00001a00| 0e 31 c4 c5 23 29 ad 84 | 60 f3 95 55 29 ac 83 c4 |.1..#)..|`..U)...|
|00001a10| 16 2e e5 cd 21 88 c7 f8 | 21 ac 55 cd 75 88 aa 50 |....!...|!.U.u..P|
|00001a20| 29 f9 16 5c 6e 60 53 dc | c5 21 7b 89 16 0c aa ee |)..\n`S.|.!{.....|
|00001a30| c7 fa 21 ab 89 cd 75 88 | fb 89 16 5c 6e aa e0 c7 |..!...u.|...\n...|
|00001a40| fc 21 ab 89 cd 75 88 fd | 89 16 5c 6e aa d2 c7 fe |.!...u..|..\n....|
|00001a50| 21 ab 8c c9 16 5c 6e cb | 67 21 16 0c cd 75 aa c1 |!....\n.|g!...u..|
|00001a60| c7 ff 21 ab a6 81 40 00 | 16 5c 6e cd 75 88 c7 ff |..!...@.|.\n.u...|
|00001a70| 21 ab 85 c4 16 0c aa 90 | c7 ce 21 ab 85 67 16 0c |!.......|..!..g..|
|00001a80| aa 86 e7 81 41 00 21 88 | cd 75 aa 96 c7 f8 21 ab |....A.!.|.u....!.|
|00001a90| 8d 81 42 00 16 5c 6e 81 | 43 00 89 16 0c aa 84 e7 |..B..\n.|C.......|
|00001aa0| 0e 44 21 29 87 22 20 5b | 67 65 74 2d 62 75 66 66 |.D!)." [|get-buff|
|00001ab0| 65 72 2d 63 72 65 61 74 | 65 20 76 69 70 65 72 2d |er-creat|e viper-|
|00001ac0| 65 78 2d 77 6f 72 6b 2d | 62 75 66 2d 6e 61 6d 65 |ex-work-|buf-name|
|00001ad0| 20 76 69 70 65 72 2d 65 | 78 2d 77 6f 72 6b 2d 62 | viper-e|x-work-b|
|00001ae0| 75 66 20 22 20 09 7c 22 | 20 6e 69 6c 20 74 20 63 |uf " .|"| nil t c|
|00001af0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001b00| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 23 22 20 63 |looking-|at "#" c|
|00001b10| 6f 6d 6d 61 6e 64 20 65 | 78 2d 74 6f 6b 65 6e 2d |ommand e|x-token-|
|00001b20| 74 79 70 65 20 63 68 61 | 72 2d 74 6f 2d 73 74 72 |type cha|r-to-str|
|00001b30| 69 6e 67 20 65 78 2d 74 | 6f 6b 65 6e 20 31 20 22 |ing ex-t|oken 1 "|
|00001b40| 5b 61 2d 7a 5d 22 20 76 | 69 70 65 72 2d 67 65 74 |[a-z]" v|iper-get|
|00001b50| 2d 65 78 2d 63 6f 6d 2d | 73 75 62 72 20 22 5c 5c |-ex-com-|subr "\\|
|00001b60| 2e 22 20 64 6f 74 20 22 | 5b 30 2d 39 5d 22 20 73 |." dot "|[0-9]" s|
|00001b70| 65 74 2d 6d 61 72 6b 20 | 72 65 2d 73 65 61 72 63 |et-mark |re-searc|
|00001b80| 68 2d 66 6f 72 77 61 72 | 64 20 22 5b 30 2d 39 5d |h-forwar|d "[0-9]|
|00001b90| 2a 22 20 70 6c 75 73 20 | 61 64 64 2d 6e 75 6d 62 |*" plus |add-numb|
|00001ba0| 65 72 20 6d 69 6e 75 73 | 20 73 75 62 2d 6e 75 6d |er minus| sub-num|
|00001bb0| 62 65 72 20 61 62 73 2d | 6e 75 6d 62 65 72 20 73 |ber abs-|number s|
|00001bc0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 6d 61 72 |tring-to|-int mar|
|00001bd0| 6b 20 22 5c 5c 24 22 20 | 65 6e 64 20 22 25 22 20 |k "\\$" |end "%" |
|00001be0| 77 68 6f 6c 65 20 22 2b | 22 20 22 2b 5b 2d 2b 5d |whole "+|" "+[-+]|
|00001bf0| 22 20 22 2b 5b 5c 6e 7c | 5d 22 20 22 31 22 20 62 |" "+[\n||]" "1" b|
|00001c00| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 22 2b 5b |ackward-|char "+[|
|00001c10| 30 2d 39 5d 22 20 65 72 | 72 6f 72 20 76 69 70 65 |0-9]" er|ror vipe|
|00001c20| 72 2d 42 61 64 41 64 64 | 72 65 73 73 20 22 2d 22 |r-BadAdd|ress "-"|
|00001c30| 20 22 2d 5b 2d 2b 5d 22 | 20 22 2d 5b 5c 6e 7c 5d | "-[-+]"| "-[\n|]|
|00001c40| 22 20 22 2d 5b 30 2d 39 | 5d 22 20 22 2f 22 20 63 |" "-[0-9|]" "/" c|
|00001c50| 6f 6e 74 20 22 5b 5e 2f | 5d 2a 5c 5c 28 2f 5c 5c |ont "[^/|]*\\(/\\|
|00001c60| 7c 5c 6e 5c 5c 29 22 20 | 22 5b 5e 5c 5c 5c 5c 5d ||\n\\)" |"[^\\\\]|
|00001c70| 5c 5c 28 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 29 2a 5c |\\(\\\\\|\\\\\)*\|
|00001c80| 5c 5c 5c 2f 22 20 73 74 | 72 20 72 65 2d 73 65 61 |\\\/" st|r re-sea|
|00001c90| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 30 20 73 |rch-back|ward 0 s|
|00001ca0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5c |earch-fo|rward "\|
|00001cb0| 5c 3f 22 20 22 5b 5e 5c | 5c 3f 5d 2a 5c 5c 28 5c |\?" "[^\|\?]*\\(\|
|00001cc0| 5c 3f 5c 5c 7c 5c 6e 5c | 5c 29 22 20 22 5b 5e 5c |\?\\|\n\|\)" "[^\|
|00001cd0| 5c 5c 5c 5d 5c 5c 28 5c | 5c 5c 5c 5c 5c 5c 5c 5c |\\\]\\(\|\\\\\\\\|
|00001ce0| 5c 29 2a 5c 5c 5c 5c 5c | 5c 3f 22 20 22 5c 6e 22 |\)*\\\\\|\?" "\n"|
|00001cf0| 20 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 | search-|backward|
|00001d00| 20 22 2c 22 20 63 6f 6d | 6d 61 20 22 3b 22 20 73 | "," com|ma ";" s|
|00001d10| 65 6d 69 2d 63 6f 6c 6f | 6e 20 22 5b 21 3d 3e 3c |emi-colo|n "[!=><|
|00001d20| 26 7e 5d 22 20 22 27 22 | 20 67 6f 74 6f 2d 6d 61 |&~]" "'"| goto-ma|
|00001d30| 72 6b 20 22 4d 61 72 6b | 73 20 61 72 65 20 27 20 |rk "Mark|s are ' |
|00001d40| 61 6e 64 20 61 2d 7a 22 | 20 65 6e 64 2d 6d 61 72 |and a-z"| end-mar|
|00001d50| 6b 20 22 67 6f 74 6f 22 | 20 76 69 70 65 72 2d 42 |k "goto"| viper-B|
|00001d60| 61 64 45 78 43 6f 6d 6d | 61 6e 64 5d 20 35 29 29 |adExComm|and] 5))|
|00001d70| 5d 20 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 1]).(d|efalias |
|00001d80| 27 65 78 2d 63 6d 64 2d | 72 65 61 64 2d 65 78 69 |'ex-cmd-|read-exi|
|00001d90| 74 20 23 5b 6e 69 6c 20 | 22 c0 11 c2 c3 c4 c5 c4 |t #[nil |".......|
|00001da0| c6 c4 c7 c4 c8 c9 b0 0b | ca c2 cb c4 cc c4 cd c9 |........|........|
|00001db0| ce b0 09 c2 cf c4 d0 c4 | d1 c4 d2 c4 d3 c4 d4 c4 |........|........|
|00001dc0| d5 c4 d6 c4 d7 c4 d8 c4 | d9 c4 da c4 db c4 dc c4 |........|........|
|00001dd0| dd c4 de c4 df c4 e0 c4 | e1 c9 e2 b0 28 1e 23 1e |........|....(.#.|
|00001de0| 24 1e 25 e6 8b 88 0e 25 | 1e 27 8a e8 0e 27 e9 c0 |$.%....%|.'...'..|
|00001df0| 23 29 ad 84 60 ea 95 55 | 29 ab 84 eb 20 aa b4 0e |#)..`..U|)... ...|
|00001e00| 23 1e 27 8a e8 0e 27 e9 | c0 23 29 ad 84 60 ea 95 |#.'...'.|.#)..`..|
|00001e10| 55 29 ab 84 ec 63 aa 9b | 0e 24 1e 27 8a e8 0e 27 |U)...c..|.$.'...'|
|00001e20| e9 c0 23 29 ad 84 60 ea | 95 55 29 ab 84 eb 20 aa |..#)..`.|.U)... .|
|00001e30| 82 ec 63 2b 87 22 20 5b | 74 20 76 69 70 65 72 2d |..c+." [|t viper-|
|00001e40| 69 6e 63 6f 6d 70 6c 65 | 74 65 2d 65 78 2d 63 6d |incomple|te-ex-cm|
|00001e50| 64 20 22 5c 5c 28 22 20 | 22 73 65 74 5b 20 09 5d |d "\\(" |"set[ .]|
|00001e60| 2a 22 20 22 5c 5c 7c 22 | 20 22 65 64 69 74 5b 20 |*" "\\|"| "edit[ |
|00001e70| 09 5d 2a 22 20 22 5b 6e | 4e 5d 65 78 74 5b 20 09 |.]*" "[n|N]ext[ .|
|00001e80| 5d 2a 22 20 22 75 6e 6d | 5b 20 09 5d 2a 22 20 22 |]*" "unm|[ .]*" "|
|00001e90| 5e 5b 20 09 5d 2a 72 65 | 70 22 20 22 5c 5c 29 22 |^[ .]*re|p" "\\)"|
|00001ea0| 20 22 5b 61 2d 7a 41 2d | 5a 5d 5b 20 09 5d 2a 22 | "[a-zA-|Z][ .]*"|
|00001eb0| 20 22 21 22 20 22 3e 3e | 22 20 22 5c 5c 2b 5b 30 | "!" ">>|" "\\+[0|
|00001ec0| 2d 39 5d 2b 22 20 22 2a | 5b 20 09 5d 2a 24 22 20 |-9]+" "*|[ .]*$" |
|00001ed0| 22 5e 5b 20 09 5d 2a 24 | 22 20 22 5b 3f 2f 5d 2e |"^[ .]*$|" "[?/].|
|00001ee0| 2a 22 20 22 5b 6b 74 67 | 6a 6d 73 7a 5d 5b 20 09 |*" "[ktg|jmsz][ .|
|00001ef0| 5d 2a 24 22 20 22 5e 5b | 20 09 5d 2a 61 62 2e 2a |]*$" "^[| .]*ab.*|
|00001f00| 22 20 22 74 72 5b 61 6e | 73 66 65 72 20 09 5d 2a |" "tr[an|sfer .]*|
|00001f10| 22 20 22 73 72 5b 20 09 | 5d 2a 22 20 22 6d 6f 2e |" "sr[ .|]*" "mo.|
|00001f20| 2a 22 20 22 5e 5b 20 09 | 5d 2a 6b 3f 6d 61 5b 5e |*" "^[ .|]*k?ma[^|
|00001f30| 70 5d 2a 22 20 22 5e 5b | 20 09 5d 2a 66 69 2e 2a |p]*" "^[| .]*fi.*|
|00001f40| 22 20 22 76 3f 67 6c 2e | 2a 22 20 22 5b 76 67 5d |" "v?gl.|*" "[vg]|
|00001f50| 5b 20 09 5d 2a 24 22 20 | 22 6a 6f 2e 2a 22 20 22 |[ .]*$" |"jo.*" "|
|00001f60| 5e 5b 20 09 5d 2a 74 61 | 2e 2a 22 20 22 5e 5b 20 |^[ .]*ta|.*" "^[ |
|00001f70| 09 5d 2a 75 6e 61 2e 2a | 22 20 22 5e 5b 20 09 5d |.]*una.*|" "^[ .]|
|00001f80| 2a 73 75 2e 2a 22 20 22 | 5b 27 60 5d 5b 61 2d 7a |*su.*" "|['`][a-z|
|00001f90| 5d 5b 20 09 5d 2a 22 20 | 22 5c 5c 28 72 5c 5c 7c |][ .]*" |"\\(r\\||
|00001fa0| 72 65 5c 5c 7c 72 65 61 | 5c 5c 7c 72 65 61 64 5c |re\\|rea|\\|read\|
|00001fb0| 5c 29 5b 20 09 5d 2a 21 | 22 20 22 5c 5c 28 77 5c |\)[ .]*!|" "\\(w\|
|00001fc0| 5c 7c 77 72 5c 5c 7c 77 | 72 69 5c 5c 7c 77 72 69 |\|wr\\|w|ri\\|wri|
|00001fd0| 74 2e 3f 5c 5c 29 5b 20 | 09 5d 2b 21 22 20 22 21 |t.?\\)[ |.]+!" "!|
|00001fe0| 5b 20 09 5d 2a 5b 61 2d | 7a 41 2d 5a 5d 2e 2a 22 |[ .]*[a-|zA-Z].*"|
|00001ff0| 20 22 21 2a 22 20 73 74 | 61 79 2d 72 65 67 65 78 | "!*" st|ay-regex|
|00002000| 20 71 75 69 74 2d 72 65 | 67 65 78 32 20 71 75 69 | quit-re|gex2 qui|
|00002010| 74 2d 72 65 67 65 78 31 | 20 28 28 62 79 74 65 2d |t-regex1| ((byte-|
|00002020| 63 6f 64 65 20 22 c0 09 | 21 89 12 71 88 64 62 87 |code "..|!..q.db.|
|00002030| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |" [get-b|uffer-cr|
|00002040| 65 61 74 65 20 76 69 70 | 65 72 2d 65 78 2d 77 6f |eate vip|er-ex-wo|
|00002050| 72 6b 2d 62 75 66 2d 6e | 61 6d 65 20 76 69 70 65 |rk-buf-n|ame vipe|
|00002060| 72 2d 65 78 2d 77 6f 72 | 6b 2d 62 75 66 5d 20 33 |r-ex-wor|k-buf] 3|
|00002070| 29 29 20 73 74 72 20 72 | 65 2d 73 65 61 72 63 68 |)) str r|e-search|
|00002080| 2d 62 61 63 6b 77 61 72 | 64 20 6e 69 6c 20 30 20 |-backwar|d nil 0 |
|00002090| 65 78 69 74 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |exit-min|ibuffer |
|000020a0| 22 20 22 5d 20 34 32 20 | 6e 69 6c 20 6e 69 6c 5d |" "] 42 |nil nil]|
|000020b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 78 2d |).(defal|ias 'ex-|
|000020c0| 63 6d 64 2d 63 6f 6d 70 | 6c 65 74 65 20 23 5b 6e |cmd-comp|lete #[n|
|000020d0| 69 6c 20 22 c0 89 89 89 | 89 19 1a 1b 1c 1d 8a c6 |il "....|........|
|000020e0| c0 78 14 60 15 29 0c c7 | 55 ac a8 c8 1e 09 8a ca |.x.`.)..|U.......|
|000020f0| 0e 09 c0 cb 23 29 ad 84 | 60 c7 95 55 29 ac 94 cc |....#)..|`..U)...|
|00002100| 1e 09 8a ca 0e 09 c0 cb | 23 29 ad 84 60 c7 95 55 |........|#)..`..U|
|00002110| 29 ab b9 cd 1e 09 8a ca | 0e 09 c0 cb 23 29 ad 84 |).......|....#)..|
|00002120| 60 c7 95 55 29 ae 97 c8 | 1e 09 8a ca 0e 09 c0 cb |`..U)...|........|
|00002130| 23 29 ad 84 60 c7 95 55 | 29 ae 83 ce cf 21 3f ad |#)..`..U|)....!?.|
|00002140| cf d0 90 d1 d2 0e 13 21 | 21 91 aa c4 0d 60 7b 12 |.......!|!....`{.|
|00002150| d4 5c 6e 0e 13 5c 22 89 | 11 cb 61 ab 85 d5 d6 21 |.\n..\".|..a....!|
|00002160| aa b0 09 c0 61 ab 85 d5 | d7 21 aa a6 0d 62 88 60 |....a...|.!...b.`|
|00002170| 64 7c 88 09 63 88 c0 1e | 18 d9 da 09 50 0e 13 5c |d|..c...|....P..\|
|00002180| 22 13 29 0b 47 db 56 ad | 8a d0 90 d1 d2 dc 0b 21 |".).G.V.|.......!|
|00002190| 21 21 91 2d 87 22 20 5b | 6e 69 6c 20 63 6f 6d 70 |!!.-." [|nil comp|
|000021a0| 6c 65 74 69 6f 6e 2d 72 | 65 73 75 6c 74 20 73 74 |letion-r|esult st|
|000021b0| 72 69 6e 67 2d 74 6f 2d | 63 6f 6d 70 6c 65 74 65 |ring-to-|complete|
|000021c0| 20 63 6f 6d 70 6c 2d 6c | 69 73 74 20 64 69 73 74 | compl-l|ist dist|
|000021d0| 20 73 61 76 65 2d 70 6f | 73 20 22 5b 61 2d 7a 41 | save-po|s "[a-zA|
|000021e0| 2d 5a 21 3d 3e 26 7e 5d | 22 20 30 20 22 5c 5c 28 |-Z!=>&~]|" 0 "\\(|
|000021f0| 5b 20 09 5d 2a 5b 27 60 | 5d 5b 20 09 5d 2a 5b 61 |[ .]*['`|][ .]*[a|
|00002200| 2d 7a 5d 2a 5c 5c 29 22 | 20 73 74 72 20 72 65 2d |-z]*\\)"| str re-|
|00002210| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00002220| 74 20 22 5e 5b 20 09 5d | 2a 5b 61 2d 7a 41 2d 5a |t "^[ .]|*[a-zA-Z|
|00002230| 21 3d 3e 26 7e 5d 5b 20 | 09 5d 2a 5b 2f 3f 5d 2a |!=>&~][ |.]*[/?]*|
|00002240| 2b 5b 20 09 5d 2b 5b 61 | 2d 7a 41 2d 5a 21 3d 3e |+[ .]+[a|-zA-Z!=>|
|00002250| 26 7e 5d 2b 22 20 22 5b | 61 2d 7a 41 2d 5a 21 3d |&~]+" "[|a-zA-Z!=|
|00002260| 3e 26 7e 5d 5b 20 09 5d | 2a 5b 2f 3f 5d 2a 5b 20 |>&~][ .]|*[/?]*[ |
|00002270| 09 5d 2a 22 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |.]*" loo|king-at |
|00002280| 22 5b 5e 20 09 5c 6e 0d | 5d 22 20 22 2a 43 6f 6d |"[^ .\n.|]" "*Com|
|00002290| 70 6c 65 74 69 6f 6e 73 | 2a 22 20 64 69 73 70 6c |pletions|*" displ|
|000022a0| 61 79 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6c 69 |ay-compl|etion-li|
|000022b0| 73 74 20 76 69 70 65 72 | 2d 61 6c 69 73 74 2d 74 |st viper|-alist-t|
|000022c0| 6f 2d 6c 69 73 74 20 65 | 78 2d 74 6f 6b 65 6e 2d |o-list e|x-token-|
|000022d0| 61 6c 69 73 74 20 74 72 | 79 2d 63 6f 6d 70 6c 65 |alist tr|y-comple|
|000022e0| 74 69 6f 6e 20 76 69 70 | 65 72 2d 74 6d 70 2d 69 |tion vip|er-tmp-i|
|000022f0| 6e 73 65 72 74 2d 61 74 | 2d 65 6f 62 20 22 20 28 |nsert-at|-eob " (|
|00002300| 53 6f 6c 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 29 |Sole com|pletion)|
|00002310| 22 20 22 20 28 4e 6f 20 | 6d 61 74 63 68 29 22 20 |" " (No |match)" |
|00002320| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00002330| 20 76 69 70 65 72 2d 66 | 69 6c 74 65 72 2d 61 6c | viper-f|ilter-al|
|00002340| 69 73 74 20 22 5e 22 20 | 31 20 72 65 76 65 72 73 |ist "^" |1 revers|
|00002350| 65 5d 20 36 20 6e 69 6c | 20 6e 69 6c 5d 29 0a 28 |e] 6 nil| nil]).(|
|00002360| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00002370| 65 78 20 23 5b 28 61 72 | 67 20 26 6f 70 74 69 6f |ex #[(ar|g &optio|
|00002380| 6e 61 6c 20 73 74 72 69 | 6e 67 29 20 22 08 ac 84 |nal stri|ng) "...|
|00002390| c1 12 c1 13 c4 0d 21 1e | 06 c1 1e 07 c8 1e 09 60 |......!.|.......`|
|000023a0| 1e 5c 6e c1 1e 0b c1 1e | 0c c1 1e 0d c1 1e 0e c1 |.\n.....|........|
|000023b0| 1e 0f c1 1e 10 c1 1e 11 | d2 0e 13 0e 06 5c 22 88 |........|.....\".|
|000023c0| 0e 14 ab b9 d5 d6 c8 21 | 60 5c 22 88 60 d6 c8 21 |.......!|`\".`..!|
|000023d0| 56 ab 8a d6 c8 21 16 0d | 60 16 0e aa 88 d6 c8 21 |V....!..|`......!|
|000023e0| 16 0e 60 16 0d 8a 0e 0d | 62 88 d7 65 60 5c 22 54 |..`.....|b..e`\"T|
|000023f0| 89 16 0b d7 0e 0d 0e 0e | 5c 22 5c 5c d8 5c 5c 16 |........|\"\\.\\.|
|00002400| 0c 29 0e 0b ab 89 d9 da | 0e 0b 0e 0c 23 16 0f 08 |.)......|....#...|
|00002410| ae 98 db dc 0e 0f dd 0e | 0f ab 83 de aa 83 0e 1d |........|........|
|00002420| 40 0e 06 0e 0f ad 81 df | 26 06 16 11 e0 8b 88 c1 |@.......|&.......|
|00002430| 16 21 c1 16 5c 22 0e 09 | 85 6d 01 e3 20 88 0e 21 |.!..\"..|.m.. ..!|
|00002440| e4 73 ab b4 0e 07 ab 87 | 0e 07 0e 5c 22 42 16 5c |.s......|...\"B.\|
|00002450| 22 0e 25 e6 98 ab 8a e7 | c1 21 88 c1 16 09 82 66 |".%.....|.!.....f|
|00002460| 01 0e 25 e8 98 ab 8a e7 | c8 21 88 c1 16 09 82 66 |..%.....|.!.....f|
|00002470| 01 e9 20 88 ea 8b 88 82 | 66 01 0e 21 eb 61 ab 8a |.. .....|f..!.a..|
|00002480| ec ed 0e 25 0e 2e 23 88 | aa f3 0e 21 ef 61 ab 97 |...%..#.|...!.a..|
|00002490| c1 16 07 0e 5c 22 ab 86 | 64 0e 5c 22 42 aa 86 64 |....\"..|d.\"B..d|
|000024a0| 65 0e 5c 22 42 42 16 5c | 22 aa d6 0e 21 f0 61 ab |e.\"BB.\|"...!.a.|
|000024b0| 99 0e 10 ef 61 ab 83 65 | 16 07 0e 07 ac 83 60 aa |....a..e|......`.|
|000024c0| 82 0e 07 0e 5c 22 42 16 | 5c 22 aa b7 0e 21 f1 61 |....\"B.|\"...!.a|
|000024d0| ab a1 0e 10 ef 61 ab 83 | 65 16 07 0e 07 ab 84 0e |.....a..|e.......|
|000024e0| 07 16 5c 6e 0e 07 ac 83 | 60 aa 82 0e 07 0e 5c 22 |..\n....|`.....\"|
|000024f0| 42 16 5c 22 aa 90 f2 0e | 07 0e 5c 6e 5c 22 89 1e |B.\"....|..\n\"..|
|00002500| 33 ab 84 0e 33 16 07 29 | 0e 21 16 10 82 a1 00 2e |3...3..)|.!......|
|00002510| 0b 87 22 20 5b 73 74 72 | 69 6e 67 20 6e 69 6c 20 |.." [str|ing nil |
|00002520| 65 78 2d 67 2d 66 6c 61 | 67 20 65 78 2d 67 2d 76 |ex-g-fla|g ex-g-v|
|00002530| 61 72 69 61 6e 74 20 63 | 6f 70 79 2d 6b 65 79 6d |ariant c|opy-keym|
|00002540| 61 70 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 6c 6f |ap minib|uffer-lo|
|00002550| 63 61 6c 2d 6d 61 70 20 | 6d 61 70 20 61 64 64 72 |cal-map |map addr|
|00002560| 65 73 73 20 74 20 63 6f | 6e 74 20 64 6f 74 20 72 |ess t co|nt dot r|
|00002570| 65 67 2d 62 65 67 2d 6c | 69 6e 65 20 72 65 67 2d |eg-beg-l|ine reg-|
|00002580| 65 6e 64 2d 6c 69 6e 65 | 20 72 65 67 2d 62 65 67 |end-line| reg-beg|
|00002590| 20 72 65 67 2d 65 6e 64 | 20 69 6e 69 74 69 61 6c | reg-end| initial|
|000025a0| 2d 73 74 72 20 70 72 65 | 76 2d 74 6f 6b 65 6e 2d |-str pre|v-token-|
|000025b0| 74 79 70 65 20 63 6f 6d | 2d 73 74 72 20 76 69 70 |type com|-str vip|
|000025c0| 65 72 2d 61 64 64 2d 6b | 65 79 6d 61 70 20 76 69 |er-add-k|eymap vi|
|000025d0| 70 65 72 2d 65 78 2d 63 | 6d 64 2d 6d 61 70 20 61 |per-ex-c|md-map a|
|000025e0| 72 67 20 76 69 70 65 72 | 2d 65 6e 6c 61 72 67 65 |rg viper|-enlarge|
|000025f0| 2d 72 65 67 69 6f 6e 20 | 6d 61 72 6b 20 63 6f 75 |-region |mark cou|
|00002600| 6e 74 2d 6c 69 6e 65 73 | 20 2d 31 20 66 6f 72 6d |nt-lines| -1 form|
|00002610| 61 74 20 22 25 64 2c 25 | 64 22 20 76 69 70 65 72 |at "%d,%|d" viper|
|00002620| 2d 72 65 61 64 2d 73 74 | 72 69 6e 67 2d 77 69 74 |-read-st|ring-wit|
|00002630| 68 2d 68 69 73 74 6f 72 | 79 20 22 3a 22 20 76 69 |h-histor|y ":" vi|
|00002640| 70 65 72 2d 65 78 2d 68 | 69 73 74 6f 72 79 20 22 |per-ex-h|istory "|
|00002650| 6e 6f 6e 65 22 20 22 20 | 5b 54 79 70 65 20 63 6f |none" " |[Type co|
|00002660| 6d 6d 61 6e 64 20 74 6f | 20 65 78 65 63 75 74 65 |mmand to| execute|
|00002670| 20 6f 6e 20 63 75 72 72 | 65 6e 74 20 72 65 67 69 | on curr|ent regi|
|00002680| 6f 6e 5d 22 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |on]" ((b|yte-code|
|00002690| 20 22 c0 09 21 89 12 71 | 88 65 64 7c 88 0b c4 b1 | "..!..q|.ed|....|
|000026a0| 02 88 65 62 87 22 20 5b | 67 65 74 2d 62 75 66 66 |..eb." [|get-buff|
|000026b0| 65 72 2d 63 72 65 61 74 | 65 20 76 69 70 65 72 2d |er-creat|e viper-|
|000026c0| 65 78 2d 77 6f 72 6b 2d | 62 75 66 2d 6e 61 6d 65 |ex-work-|buf-name|
|000026d0| 20 76 69 70 65 72 2d 65 | 78 2d 77 6f 72 6b 2d 62 | viper-e|x-work-b|
|000026e0| 75 66 20 63 6f 6d 2d 73 | 74 72 20 22 5c 6e 22 5d |uf com-s|tr "\n"]|
|000026f0| 20 33 29 29 20 65 78 2d | 74 6f 6b 65 6e 2d 74 79 | 3)) ex-|token-ty|
|00002700| 70 65 20 65 78 2d 61 64 | 64 72 65 73 73 65 73 20 |pe ex-ad|dresses |
|00002710| 76 69 70 65 72 2d 67 65 | 74 2d 65 78 2d 74 6f 6b |viper-ge|t-ex-tok|
|00002720| 65 6e 20 28 63 6f 6d 6d | 61 6e 64 20 65 6e 64 2d |en (comm|and end-|
|00002730| 6d 61 72 6b 29 20 65 78 | 2d 74 6f 6b 65 6e 20 22 |mark) ex|-token "|
|00002740| 67 6c 6f 62 61 6c 22 20 | 65 78 2d 67 6c 6f 62 61 |global" |ex-globa|
|00002750| 6c 20 22 76 67 6c 6f 62 | 61 6c 22 20 76 69 70 65 |l "vglob|al" vipe|
|00002760| 72 2d 65 78 65 63 75 74 | 65 2d 65 78 2d 63 6f 6d |r-execut|e-ex-com|
|00002770| 6d 61 6e 64 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |mand ((b|yte-code|
|00002780| 20 22 c0 09 21 89 12 71 | 88 c3 c4 77 88 c5 c6 21 | "..!..q|...w...!|
|00002790| ab 85 c7 75 88 aa 92 c5 | c8 21 ab 85 c4 16 09 aa |...u....|.!......|
|000027a0| 88 ca cb 0e 0c 0e 0d 23 | 88 c4 87 22 20 5b 67 65 |.......#|..." [ge|
|000027b0| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|000027c0| 76 69 70 65 72 2d 65 78 | 2d 77 6f 72 6b 2d 62 75 |viper-ex|-work-bu|
|000027d0| 66 2d 6e 61 6d 65 20 76 | 69 70 65 72 2d 65 78 2d |f-name v|iper-ex-|
|000027e0| 77 6f 72 6b 2d 62 75 66 | 20 22 20 09 22 20 6e 69 |work-buf| " ." ni|
|000027f0| 6c 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 7c 22 |l lookin|g-at "|"|
|00002800| 20 31 20 22 5c 6e 22 20 | 63 6f 6e 74 20 65 72 72 | 1 "\n" |cont err|
|00002810| 6f 72 20 22 60 25 73 27 | 3a 20 25 73 22 20 65 78 |or "`%s'|: %s" ex|
|00002820| 2d 74 6f 6b 65 6e 20 76 | 69 70 65 72 2d 53 70 75 |-token v|iper-Spu|
|00002830| 72 69 6f 75 73 54 65 78 | 74 5d 20 35 29 29 20 6e |riousTex|t] 5)) n|
|00002840| 6f 6e 2d 63 6f 6d 6d 61 | 6e 64 20 65 72 72 6f 72 |on-comma|nd error|
|00002850| 20 22 60 25 73 27 3a 20 | 25 73 22 20 76 69 70 65 | "`%s': |%s" vipe|
|00002860| 72 2d 42 61 64 45 78 43 | 6f 6d 6d 61 6e 64 20 77 |r-BadExC|ommand w|
|00002870| 68 6f 6c 65 20 63 6f 6d | 6d 61 20 73 65 6d 69 2d |hole com|ma semi-|
|00002880| 63 6f 6c 6f 6e 20 76 69 | 70 65 72 2d 67 65 74 2d |colon vi|per-get-|
|00002890| 65 78 2d 61 64 64 72 65 | 73 73 2d 73 75 62 72 20 |ex-addre|ss-subr |
|000028a0| 61 6e 73 5d 20 38 20 6e | 69 6c 20 22 50 22 5d 29 |ans] 8 n|il "P"])|
|000028b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|000028c0| 72 2d 67 65 74 2d 65 78 | 2d 70 61 74 20 23 5b 6e |r-get-ex|-pat #[n|
|000028d0| 69 6c 20 22 c0 8b 87 22 | 20 5b 28 28 62 79 74 65 |il "..."| [((byte|
|000028e0| 2d 63 6f 64 65 20 22 c0 | 09 21 89 12 71 88 c3 c4 |-code ".|.!..q...|
|000028f0| 77 88 c5 c6 21 ab 91 0e | 07 3f 16 07 0e 08 3f 16 |w...!...|.?....?.|
|00002900| 08 c9 75 88 c3 c4 77 88 | 67 1e 5c 6e cb cc cd ce |..u...w.|g.\n....|
|00002910| 0e 5c 6e 5c 22 5c 22 ab | 84 cf d0 21 88 c5 d1 21 |.\n\"\".|...!...!|
|00002920| ab ef c9 75 88 d2 60 21 | 88 d3 1e 14 6c ac bc 0e |...u..`!|....l...|
|00002930| 14 ab b8 d5 cd d6 0e 5c | 6e 89 23 c4 d3 23 ac 8f |.......\|n.#..#..|
|00002940| 0e 17 d8 b6 ab 86 cf d9 | 21 88 aa 83 64 62 88 cd |........|!...db..|
|00002950| da 0e 5c 6e 5c 22 1e 1b | 8a dc 0e 1b c4 d3 23 29 |..\n\"..|......#)|
|00002960| ad 84 60 dd 95 55 29 ac | 46 c4 16 14 aa 41 29 de |..`..U).|F....A).|
|00002970| d3 21 60 55 ab 83 df aa | 86 60 53 de d3 21 7b 16 |.!`U....|.`S..!{.|
|00002980| 17 e0 c9 21 88 c5 e1 21 | ab 8d 0e 5c 6e 63 88 e0 |...!...!|...\nc..|
|00002990| c9 21 88 aa 83 c4 16 17 | 0e 5c 6e 29 87 22 20 5b |.!......|.\n)." [|
|000029a0| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|000029b0| 65 20 76 69 70 65 72 2d | 65 78 2d 77 6f 72 6b 2d |e viper-|ex-work-|
|000029c0| 62 75 66 2d 6e 61 6d 65 | 20 76 69 70 65 72 2d 65 |buf-name| viper-e|
|000029d0| 78 2d 77 6f 72 6b 2d 62 | 75 66 20 22 20 09 22 20 |x-work-b|uf " ." |
|000029e0| 6e 69 6c 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |nil look|ing-at "|
|000029f0| 21 22 20 65 78 2d 67 2d | 76 61 72 69 61 6e 74 20 |!" ex-g-|variant |
|00002a00| 65 78 2d 67 2d 66 6c 61 | 67 20 31 20 63 20 73 74 |ex-g-fla|g 1 c st|
|00002a10| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 30 2d 39 |ring-mat|ch "[0-9|
|00002a20| 41 2d 5a 61 2d 7a 5d 22 | 20 66 6f 72 6d 61 74 20 |A-Za-z]"| format |
|00002a30| 22 25 63 22 20 65 72 72 | 6f 72 20 22 47 6c 6f 62 |"%c" err|or "Glob|
|00002a40| 61 6c 20 72 65 67 65 78 | 70 20 6d 75 73 74 20 62 |al regex|p must b|
|00002a50| 65 20 69 6e 73 69 64 65 | 20 6d 61 74 63 68 69 6e |e inside| matchin|
|00002a60| 67 20 6e 6f 6e 2d 61 6c | 70 68 61 6e 75 6d 65 72 |g non-al|phanumer|
|00002a70| 69 63 20 63 68 61 72 73 | 22 20 22 5b 5e 5c 5c 5c |ic chars|" "[^\\\|
|00002a80| 5c 5c 6e 5d 22 20 73 65 | 74 2d 6d 61 72 6b 20 74 |\\n]" se|t-mark t|
|00002a90| 20 63 6f 6e 74 20 72 65 | 2d 73 65 61 72 63 68 2d | cont re|-search-|
|00002aa0| 66 6f 72 77 61 72 64 20 | 22 5b 5e 25 63 5d 2a 25 |forward |"[^%c]*%|
|00002ab0| 63 22 20 65 78 2d 74 6f | 6b 65 6e 20 28 22 67 6c |c" ex-to|ken ("gl|
|00002ac0| 6f 62 61 6c 22 20 22 76 | 67 6c 6f 62 61 6c 22 29 |obal" "v|global")|
|00002ad0| 20 22 4d 69 73 73 69 6e | 67 20 63 6c 6f 73 69 6e | "Missin|g closin|
|00002ae0| 67 20 64 65 6c 69 6d 69 | 74 65 72 20 66 6f 72 20 |g delimi|ter for |
|00002af0| 67 6c 6f 62 61 6c 20 72 | 65 67 65 78 70 22 20 22 |global r|egexp" "|
|00002b00| 5b 5e 5c 5c 5c 5c 5d 5c | 5c 28 5c 5c 5c 5c 5c 5c |[^\\\\]\|\(\\\\\\|
|00002b10| 5c 5c 5c 5c 29 2a 5c 5c | 5c 5c 25 63 22 20 73 74 |\\\\)*\\|\\%c" st|
|00002b20| 72 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |r re-sea|rch-back|
|00002b30| 77 61 72 64 20 30 20 6d | 61 72 6b 20 22 22 20 62 |ward 0 m|ark "" b|
|00002b40| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 22 5c 6e |ackward-|char "\n|
|00002b50| 22 5d 20 36 29 29 5d 20 | 31 5d 29 0a 28 64 65 66 |"] 6))] |1]).(def|
|00002b60| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 67 65 74 |alias 'v|iper-get|
|00002b70| 2d 65 78 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 6e 69 |-ex-comm|and #[ni|
|00002b80| 6c 20 22 c0 8b 87 22 20 | 5b 28 28 62 79 74 65 2d |l "..." |[((byte-|
|00002b90| 63 6f 64 65 20 22 c0 09 | 21 89 12 71 88 c3 c4 21 |code "..|!..q...!|
|00002ba0| ab 83 c5 75 88 c6 c7 77 | 88 c3 c8 21 ab 91 c9 20 |...u...w|...!... |
|00002bb0| 88 0e 5c 6e cb 61 ad 99 | cc cd 0e 0e 0e 0f 23 87 |..\n.a..|......#.|
|00002bc0| c3 d0 21 ab 88 d1 67 21 | 16 0e c5 75 87 cc 0e 0f |..!...g!|...u....|
|00002bd0| 21 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |!." [get|-buffer-|
|00002be0| 63 72 65 61 74 65 20 76 | 69 70 65 72 2d 65 78 2d |create v|iper-ex-|
|00002bf0| 77 6f 72 6b 2d 62 75 66 | 2d 6e 61 6d 65 20 76 69 |work-buf|-name vi|
|00002c00| 70 65 72 2d 65 78 2d 77 | 6f 72 6b 2d 62 75 66 20 |per-ex-w|ork-buf |
|00002c10| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 2f 22 20 31 |looking-|at "/" 1|
|00002c20| 20 22 20 09 22 20 6e 69 | 6c 20 22 5b 61 2d 7a 5d | " ." ni|l "[a-z]|
|00002c30| 22 20 76 69 70 65 72 2d | 67 65 74 2d 65 78 2d 63 |" viper-|get-ex-c|
|00002c40| 6f 6d 2d 73 75 62 72 20 | 65 78 2d 74 6f 6b 65 6e |om-subr |ex-token|
|00002c50| 2d 74 79 70 65 20 6e 6f | 6e 2d 63 6f 6d 6d 61 6e |-type no|n-comman|
|00002c60| 64 20 65 72 72 6f 72 20 | 22 60 25 73 27 3a 20 25 |d error |"`%s': %|
|00002c70| 73 22 20 65 78 2d 74 6f | 6b 65 6e 20 76 69 70 65 |s" ex-to|ken vipe|
|00002c80| 72 2d 42 61 64 45 78 43 | 6f 6d 6d 61 6e 64 20 22 |r-BadExC|ommand "|
|00002c90| 5b 21 3d 3e 3c 26 7e 5d | 22 20 63 68 61 72 2d 74 |[!=><&~]|" char-t|
|00002ca0| 6f 2d 73 74 72 69 6e 67 | 5d 20 35 29 29 5d 20 31 |o-string|] 5))] 1|
|00002cb0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|00002cc0| 70 65 72 2d 67 65 74 2d | 65 78 2d 6f 70 74 2d 67 |per-get-|ex-opt-g|
|00002cd0| 63 20 23 5b 28 63 29 20 | 22 c0 8b 87 22 20 5b 28 |c #[(c) |"..." [(|
|00002ce0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 21 89 |(byte-co|de "..!.|
|00002cf0| 12 71 88 c3 c4 c5 0e 06 | 5c 22 21 ab 83 c7 75 88 |.q......|\"!...u.|
|00002d00| c8 c9 77 88 c3 ca 21 ab | 88 ca 16 0b c7 75 88 cc |..w...!.|.....u..|
|00002d10| 87 c3 cd 21 ab 88 cd 16 | 0b c7 75 88 cc 87 c9 87 |...!....|..u.....|
|00002d20| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |" [get-b|uffer-cr|
|00002d30| 65 61 74 65 20 76 69 70 | 65 72 2d 65 78 2d 77 6f |eate vip|er-ex-wo|
|00002d40| 72 6b 2d 62 75 66 2d 6e | 61 6d 65 20 76 69 70 65 |rk-buf-n|ame vipe|
|00002d50| 72 2d 65 78 2d 77 6f 72 | 6b 2d 62 75 66 20 6c 6f |r-ex-wor|k-buf lo|
|00002d60| 6f 6b 69 6e 67 2d 61 74 | 20 66 6f 72 6d 61 74 20 |oking-at| format |
|00002d70| 22 25 63 22 20 63 20 31 | 20 22 20 09 22 20 6e 69 |"%c" c 1| " ." ni|
|00002d80| 6c 20 22 67 22 20 65 78 | 2d 74 6f 6b 65 6e 20 74 |l "g" ex|-token t|
|00002d90| 20 22 63 22 5d 20 35 29 | 29 5d 20 31 5d 29 0a 28 | "c"] 5)|)] 1]).(|
|00002da0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00002db0| 64 65 66 61 75 6c 74 2d | 65 78 2d 61 64 64 72 65 |default-|ex-addre|
|00002dc0| 73 73 65 73 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |sses #[(|&optiona|
|00002dd0| 6c 20 77 68 6f 6c 65 2d | 66 6c 61 67 29 20 22 08 |l whole-|flag) ".|
|00002de0| ac 92 09 ab 87 64 65 c2 | 42 42 aa 85 60 60 c2 42 |.....de.|BB..``.B|
|00002df0| 42 89 10 87 08 41 3f ad | 86 08 40 08 42 89 10 87 |B....A?.|..@.B...|
|00002e00| 22 20 5b 65 78 2d 61 64 | 64 72 65 73 73 65 73 20 |" [ex-ad|dresses |
|00002e10| 77 68 6f 6c 65 2d 66 6c | 61 67 20 6e 69 6c 5d 20 |whole-fl|ag nil] |
|00002e20| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |3]).(def|alias 'v|
|00002e30| 69 70 65 72 2d 67 65 74 | 2d 65 78 2d 61 64 64 72 |iper-get|-ex-addr|
|00002e40| 65 73 73 20 23 5b 6e 69 | 6c 20 22 c0 20 c1 1a 1b |ess #[ni|l ". ...|
|00002e50| c4 15 c6 16 07 5c 6e ab | d2 c8 20 88 0e 09 ca 61 |.....\n.|.. ....a|
|00002e60| ab 93 0d cb b6 ab 88 c1 | 16 07 c6 89 12 aa 68 cc |........|......h.|
|00002e70| cd 21 88 aa 61 0e 09 ce | 61 ab 85 c6 89 12 aa 57 |.!..a...|a......W|
|00002e80| 0e 09 cf 61 ab 86 cc d0 | 21 88 aa 4a 0e 09 d1 61 |...a....|!..J...a|
|00002e90| ab 89 cc d2 0d 0e 13 23 | 88 aa 3b d4 0b c0 20 5c |.......#|..;... \|
|00002ea0| 22 89 1e 15 ab 83 0e 15 | 13 29 aa 2b 0b 2a 87 22 |".......|.).+.*."|
|00002eb0| 20 5b 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 74 | [point-|marker t|
|00002ec0| 20 63 6f 6e 74 20 61 64 | 64 72 65 73 73 20 22 22 | cont ad|dress ""|
|00002ed0| 20 65 78 2d 74 6f 6b 65 | 6e 20 6e 69 6c 20 65 78 | ex-toke|n nil ex|
|00002ee0| 2d 66 6c 61 67 20 76 69 | 70 65 72 2d 67 65 74 2d |-flag vi|per-get-|
|00002ef0| 65 78 2d 74 6f 6b 65 6e | 20 65 78 2d 74 6f 6b 65 |ex-token| ex-toke|
|00002f00| 6e 2d 74 79 70 65 20 63 | 6f 6d 6d 61 6e 64 20 28 |n-type c|ommand (|
|00002f10| 22 70 72 69 6e 74 22 20 | 22 6c 69 73 74 22 20 22 |"print" |"list" "|
|00002f20| 23 22 29 20 65 72 72 6f | 72 20 22 41 64 64 72 65 |#") erro|r "Addre|
|00002f30| 73 73 20 65 78 70 65 63 | 74 65 64 20 69 6e 20 74 |ss expec|ted in t|
|00002f40| 68 69 73 20 45 78 20 63 | 6f 6d 6d 61 6e 64 22 20 |his Ex c|ommand" |
|00002f50| 65 6e 64 2d 6d 61 72 6b | 20 77 68 6f 6c 65 20 22 |end-mark| whole "|
|00002f60| 54 72 61 69 6c 69 6e 67 | 20 61 64 64 72 65 73 73 |Trailing| address|
|00002f70| 20 65 78 70 65 63 74 65 | 64 22 20 63 6f 6d 6d 61 | expecte|d" comma|
|00002f80| 20 22 60 25 73 27 3a 20 | 25 73 22 20 76 69 70 65 | "`%s': |%s" vipe|
|00002f90| 72 2d 53 70 75 72 69 6f | 75 73 54 65 78 74 20 76 |r-Spurio|usText v|
|00002fa0| 69 70 65 72 2d 67 65 74 | 2d 65 78 2d 61 64 64 72 |iper-get|-ex-addr|
|00002fb0| 65 73 73 2d 73 75 62 72 | 20 61 6e 73 5d 20 35 5d |ess-subr| ans] 5]|
|00002fc0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00002fd0| 65 72 2d 67 65 74 2d 65 | 78 2d 61 64 64 72 65 73 |er-get-e|x-addres|
|00002fe0| 73 2d 73 75 62 72 20 23 | 5b 28 6f 6c 64 2d 61 64 |s-subr #|[(old-ad|
|00002ff0| 64 72 65 73 73 20 64 6f | 74 29 20 22 c0 19 5c 6e |dress do|t) "..\n|
|00003000| ac 82 0b 12 0c c3 61 ab | 85 0b 11 82 b2 00 0c c5 |......a.|........|
|00003010| 61 ab 99 8a 5c 6e 62 88 | 5c 6e c6 55 ab 85 0e 07 |a...\nb.|\n.U....|
|00003020| 53 aa 82 0e 07 79 88 c8 | 20 11 29 82 b2 00 0c c9 |S....y..| .).....|
|00003030| 61 ab 8f 8a 5c 6e 62 88 | 0e 07 5b 79 88 c8 20 11 |a...\nb.|..[y.. .|
|00003040| 29 aa ef 0c ca 61 ab 99 | 8a 65 62 88 0e 07 c6 55 |)....a..|.eb....U|
|00003050| ab 84 c6 11 aa 88 0e 07 | 53 79 88 c8 20 11 29 aa |........|Sy.. .).|
|00003060| d1 0c cb 61 ab 85 cc 20 | 11 aa c7 0c cd 61 ac c2 |...a... |.....a..|
|00003070| 0c ce 61 ac bd 0c cf 61 | ab 8b 8a d0 d1 21 88 c8 |..a....a|.....!..|
|00003080| 20 11 29 aa ad 0c d2 61 | ab 8b 8a d0 c0 21 88 c8 | .)....a|.....!..|
|00003090| 20 11 29 aa 9d 0c d3 61 | ab 98 8a 0e 07 ac 85 d4 | .)....a|........|
|000030a0| 20 88 aa 8a d5 0e 07 d6 | 5a 54 d7 5c 22 62 88 c8 | .......|ZT.\"b..|
|000030b0| 20 11 29 09 29 87 22 20 | 5b 6e 69 6c 20 61 64 64 | .).)." |[nil add|
|000030c0| 72 65 73 73 20 6f 6c 64 | 2d 61 64 64 72 65 73 73 |ress old|-address|
|000030d0| 20 64 6f 74 20 65 78 2d | 74 6f 6b 65 6e 2d 74 79 | dot ex-|token-ty|
|000030e0| 70 65 20 61 64 64 2d 6e | 75 6d 62 65 72 20 30 20 |pe add-n|umber 0 |
|000030f0| 65 78 2d 74 6f 6b 65 6e | 20 70 6f 69 6e 74 2d 6d |ex-token| point-m|
|00003100| 61 72 6b 65 72 20 73 75 | 62 2d 6e 75 6d 62 65 72 |arker su|b-number|
|00003110| 20 61 62 73 2d 6e 75 6d | 62 65 72 20 65 6e 64 20 | abs-num|ber end |
|00003120| 70 6f 69 6e 74 2d 6d 61 | 78 2d 6d 61 72 6b 65 72 |point-ma|x-marker|
|00003130| 20 70 6c 75 73 20 6d 69 | 6e 75 73 20 73 65 61 72 | plus mi|nus sear|
|00003140| 63 68 2d 66 6f 72 77 61 | 72 64 20 65 78 2d 73 65 |ch-forwa|rd ex-se|
|00003150| 61 72 63 68 2d 61 64 64 | 72 65 73 73 20 74 20 73 |arch-add|ress t s|
|00003160| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 67 |earch-ba|ckward g|
|00003170| 6f 74 6f 2d 6d 61 72 6b | 20 65 78 63 68 61 6e 67 |oto-mark| exchang|
|00003180| 65 2d 70 6f 69 6e 74 2d | 61 6e 64 2d 6d 61 72 6b |e-point-|and-mark|
|00003190| 20 76 69 70 65 72 2d 72 | 65 67 69 73 74 65 72 2d | viper-r|egister-|
|000031a0| 74 6f 2d 70 6f 69 6e 74 | 20 3f 61 20 65 6e 66 6f |to-point| ?a enfo|
|000031b0| 72 63 65 2d 62 75 66 66 | 65 72 5d 20 33 5d 29 0a |rce-buff|er] 3]).|
|000031c0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 78 2d 73 65 |(defalia|s 'ex-se|
|000031d0| 61 72 63 68 2d 61 64 64 | 72 65 73 73 20 23 5b 28 |arch-add|ress #[(|
|000031e0| 66 6f 72 77 61 72 64 29 | 20 22 08 c1 98 ab 8d 5c |forward)| ".....\|
|000031f0| 6e ac 86 c3 0c 21 88 aa | 86 5c 6e 10 aa 82 08 12 |n....!..|.\n.....|
|00003200| 0d ab 87 c6 79 88 c7 08 | 21 87 c8 79 88 c9 08 21 |....y...|!..y...!|
|00003210| 87 22 20 5b 65 78 2d 74 | 6f 6b 65 6e 20 22 22 20 |." [ex-t|oken "" |
|00003220| 76 69 70 65 72 2d 73 2d | 73 74 72 69 6e 67 20 65 |viper-s-|string e|
|00003230| 72 72 6f 72 20 76 69 70 | 65 72 2d 4e 6f 50 72 65 |rror vip|er-NoPre|
|00003240| 76 53 65 61 72 63 68 20 | 66 6f 72 77 61 72 64 20 |vSearch |forward |
|00003250| 31 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |1 re-sea|rch-forw|
|00003260| 61 72 64 20 2d 31 20 72 | 65 2d 73 65 61 72 63 68 |ard -1 r|e-search|
|00003270| 2d 62 61 63 6b 77 61 72 | 64 5d 20 32 5d 29 0a 28 |-backwar|d] 2]).(|
|00003280| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00003290| 67 65 74 2d 65 78 2d 62 | 75 66 66 65 72 20 23 5b |get-ex-b|uffer #[|
|000032a0| 6e 69 6c 20 22 c0 11 c0 | 12 c0 13 c4 8b 87 22 20 |nil "...|......" |
|000032b0| 5b 6e 69 6c 20 65 78 2d | 62 75 66 66 65 72 20 65 |[nil ex-|buffer e|
|000032c0| 78 2d 63 6f 75 6e 74 20 | 65 78 2d 66 6c 61 67 20 |x-count |ex-flag |
|000032d0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 21 |((byte-c|ode "..!|
|000032e0| 89 12 71 88 c3 c4 77 88 | c5 c6 21 ab 8a 67 16 07 |..q...w.|..!..g..|
|000032f0| c8 75 88 c3 c4 77 88 c5 | c9 21 ab 95 ca 60 21 88 |.u...w..|.!...`!.|
|00003300| cb cc 21 88 cd 60 ce cf | 21 7b 21 16 10 c3 c4 77 |..!..`..|!{!....w|
|00003310| 88 c5 d1 21 ab 86 cf 16 | 12 c8 75 88 c5 d3 21 3f |...!....|..u...!?|
|00003320| ad 87 d4 d5 0e 16 0e 17 | 23 87 22 20 5b 67 65 74 |........|#." [get|
|00003330| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 76 |-buffer-|create v|
|00003340| 69 70 65 72 2d 65 78 2d | 77 6f 72 6b 2d 62 75 66 |iper-ex-|work-buf|
|00003350| 2d 6e 61 6d 65 20 76 69 | 70 65 72 2d 65 78 2d 77 |-name vi|per-ex-w|
|00003360| 6f 72 6b 2d 62 75 66 20 | 22 20 09 22 20 6e 69 6c |ork-buf |" ." nil|
|00003370| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 61 2d | looking|-at "[a-|
|00003380| 7a 41 2d 5a 5d 22 20 65 | 78 2d 62 75 66 66 65 72 |zA-Z]" e|x-buffer|
|00003390| 20 31 20 22 5b 30 2d 39 | 5d 22 20 73 65 74 2d 6d | 1 "[0-9|]" set-m|
|000033a0| 61 72 6b 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ark re-s|earch-fo|
|000033b0| 72 77 61 72 64 20 22 5b | 30 2d 39 5d 5b 30 2d 39 |rward "[|0-9][0-9|
|000033c0| 5d 2a 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |]*" stri|ng-to-in|
|000033d0| 74 20 6d 61 72 6b 20 74 | 20 65 78 2d 63 6f 75 6e |t mark t| ex-coun|
|000033e0| 74 20 22 5b 70 6c 23 5d | 22 20 65 78 2d 66 6c 61 |t "[pl#]|" ex-fla|
|000033f0| 67 20 22 5b 5c 6e 7c 5d | 22 20 65 72 72 6f 72 20 |g "[\n|]|" error |
|00003400| 22 60 25 73 27 3a 20 25 | 73 22 20 65 78 2d 74 6f |"`%s': %|s" ex-to|
|00003410| 6b 65 6e 20 76 69 70 65 | 72 2d 53 70 75 72 69 6f |ken vipe|r-Spurio|
|00003420| 75 73 54 65 78 74 5d 20 | 35 29 29 5d 20 31 5d 29 |usText] |5))] 1])|
|00003430| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00003440| 72 2d 67 65 74 2d 65 78 | 2d 63 6f 75 6e 74 20 23 |r-get-ex|-count #|
|00003450| 5b 6e 69 6c 20 22 c0 11 | c0 12 c0 13 c4 8b 87 22 |[nil "..|......."|
|00003460| 20 5b 6e 69 6c 20 65 78 | 2d 76 61 72 69 61 6e 74 | [nil ex|-variant|
|00003470| 20 65 78 2d 63 6f 75 6e | 74 20 65 78 2d 66 6c 61 | ex-coun|t ex-fla|
|00003480| 67 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |g ((byte|-code ".|
|00003490| 09 21 89 12 71 88 c3 c4 | 77 88 c5 c6 21 ab 86 c7 |.!..q...|w...!...|
|000034a0| 16 08 c9 75 88 c3 c4 77 | 88 c5 ca 21 ab 95 cb 60 |...u...w|...!...`|
|000034b0| 21 88 cc cd 21 88 ce 60 | cf c7 21 7b 21 16 10 c3 |!...!..`|..!{!...|
|000034c0| c4 77 88 c5 d1 21 ab 86 | c7 16 12 c9 75 88 c5 d3 |.w...!..|....u...|
|000034d0| 21 3f ad 89 d4 d5 65 64 | 53 7b 0e 16 23 87 22 20 |!?....ed|S{..#." |
|000034e0| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |[get-buf|fer-crea|
|000034f0| 74 65 20 76 69 70 65 72 | 2d 65 78 2d 77 6f 72 6b |te viper|-ex-work|
|00003500| 2d 62 75 66 2d 6e 61 6d | 65 20 76 69 70 65 72 2d |-buf-nam|e viper-|
|00003510| 65 78 2d 77 6f 72 6b 2d | 62 75 66 20 22 20 09 22 |ex-work-|buf " ."|
|00003520| 20 6e 69 6c 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | nil loo|king-at |
|00003530| 22 21 22 20 74 20 65 78 | 2d 76 61 72 69 61 6e 74 |"!" t ex|-variant|
|00003540| 20 31 20 22 5b 30 2d 39 | 5d 22 20 73 65 74 2d 6d | 1 "[0-9|]" set-m|
|00003550| 61 72 6b 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ark re-s|earch-fo|
|00003560| 72 77 61 72 64 20 22 5b | 30 2d 39 5d 5b 30 2d 39 |rward "[|0-9][0-9|
|00003570| 5d 2a 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |]*" stri|ng-to-in|
|00003580| 74 20 6d 61 72 6b 20 65 | 78 2d 63 6f 75 6e 74 20 |t mark e|x-count |
|00003590| 22 5b 70 6c 23 5d 22 20 | 65 78 2d 66 6c 61 67 20 |"[pl#]" |ex-flag |
|000035a0| 22 5b 5c 6e 7c 5d 22 20 | 65 72 72 6f 72 20 22 60 |"[\n|]" |error "`|
|000035b0| 25 73 27 3a 20 25 73 22 | 20 76 69 70 65 72 2d 42 |%s': %s"| viper-B|
|000035c0| 61 64 45 78 43 6f 6d 6d | 61 6e 64 5d 20 35 29 29 |adExComm|and] 5))|
|000035d0| 5d 20 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 1]).(d|efalias |
|000035e0| 27 65 78 2d 65 78 70 61 | 6e 64 2d 66 69 6c 73 79 |'ex-expa|nd-filsy|
|000035f0| 6d 73 20 23 5b 28 63 6d | 64 20 62 75 66 29 20 22 |ms #[(cm|d buf) "|
|00003600| c0 89 89 19 1a 1b 8a 0c | 71 88 0d 13 c6 c0 c7 5c |........|q......\|
|00003610| 22 12 29 0b ac 8b c8 c9 | 0e 5c 6e 5c 22 ab 84 cb |".).....|.\n\"...|
|00003620| cc 21 88 5c 6e ac 8b c8 | cd 0e 5c 6e 5c 22 ab 84 |.!.\n...|..\n\"..|
|00003630| cb ce 21 88 8a cf 0e 10 | 21 71 88 d1 20 88 0e 5c |..!.....|!q.. ..\|
|00003640| 6e 63 88 65 62 88 d2 d3 | c0 c7 23 ab c1 d4 20 d5 |nc.eb...|..#... .|
|00003650| 94 d5 95 7b 1e 16 1e 17 | d8 0e 16 50 1e 19 8a da |...{....|...P....|
|00003660| 0e 19 c0 c7 23 29 ad 84 | 60 d5 95 55 29 ab 87 db |....#)..|`..U)...|
|00003670| 0e 16 21 88 aa 95 dc 0e | 17 21 88 0e 16 dd 98 ab |..!.....|.!......|
|00003680| 86 db 0b 21 88 aa 84 db | 5c 6e 21 88 2a aa 38 c0 |...!....|\n!.*.8.|
|00003690| 7f 88 65 60 7b 11 de df | 09 5c 22 88 29 09 2b 87 |..e`{...|.\".).+.|
|000036a0| 22 20 5b 6e 69 6c 20 72 | 65 74 20 70 66 20 63 66 |" [nil r|et pf cf|
|000036b0| 20 62 75 66 20 62 75 66 | 66 65 72 2d 66 69 6c 65 | buf buf|fer-file|
|000036c0| 2d 6e 61 6d 65 20 65 78 | 2d 6e 65 78 74 20 74 20 |-name ex|-next t |
|000036d0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5b 5e |string-m|atch "[^|
|000036e0| 5c 5c 5d 25 5c 5c 7c 5c | 5c 60 25 22 20 63 6d 64 |\\]%\\|\|\`%" cmd|
|000036f0| 20 65 72 72 6f 72 20 22 | 4e 6f 20 63 75 72 72 65 | error "|No curre|
|00003700| 6e 74 20 66 69 6c 65 20 | 74 6f 20 73 75 62 73 74 |nt file |to subst|
|00003710| 69 74 75 74 65 20 66 6f | 72 20 60 25 25 27 22 20 |itute fo|r `%%'" |
|00003720| 22 5b 5e 5c 5c 5d 23 5c | 5c 7c 5c 5c 60 23 22 20 |"[^\\]#\|\|\\`#" |
|00003730| 22 4e 6f 20 61 6c 74 65 | 72 6e 61 74 65 20 66 69 |"No alte|rnate fi|
|00003740| 6c 65 20 74 6f 20 73 75 | 62 73 74 69 74 75 74 65 |le to su|bstitute|
|00003750| 20 66 6f 72 20 60 23 27 | 22 20 67 65 74 2d 62 75 | for `#'|" get-bu|
|00003760| 66 66 65 72 2d 63 72 65 | 61 74 65 20 76 69 70 65 |ffer-cre|ate vipe|
|00003770| 72 2d 65 78 2d 74 6d 70 | 2d 62 75 66 2d 6e 61 6d |r-ex-tmp|-buf-nam|
|00003780| 65 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 72 |e erase-|buffer r|
|00003790| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000037a0| 20 22 25 5c 5c 7c 23 22 | 20 6d 61 74 63 68 2d 64 | "%\\|#"| match-d|
|000037b0| 61 74 61 20 30 20 63 68 | 61 72 20 64 61 74 61 20 |ata 0 ch|ar data |
|000037c0| 22 5c 5c 5c 5c 22 20 73 | 74 72 20 72 65 2d 73 65 |"\\\\" s|tr re-se|
|000037d0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 72 65 |arch-bac|kward re|
|000037e0| 70 6c 61 63 65 2d 6d 61 | 74 63 68 20 73 74 6f 72 |place-ma|tch stor|
|000037f0| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 22 25 22 |e-match-|data "%"|
|00003800| 20 6d 65 73 73 61 67 65 | 20 22 25 73 22 5d 20 34 | message| "%s"] 4|
|00003810| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|00003820| 70 65 72 2d 67 65 74 2d | 65 78 2d 66 69 6c 65 20 |per-get-|ex-file |
|00003830| 23 5b 6e 69 6c 20 22 c0 | 19 c0 12 c0 13 c0 14 c0 |#[nil ".|........|
|00003840| 15 c0 16 06 c7 16 08 8a | c9 8b 88 29 09 16 5c 6e |........|...)..\n|
|00003850| 0e 0b ab 8a cc cd ce 09 | 5c 22 21 89 12 aa 86 5c |........|\"!....\|
|00003860| 6e ae 81 c7 89 12 29 87 | 22 20 5b 6e 69 6c 20 70 |n.....).|" [nil p|
|00003870| 72 6f 6d 70 74 20 65 78 | 2d 66 69 6c 65 20 65 78 |rompt ex|-file ex|
|00003880| 2d 76 61 72 69 61 6e 74 | 20 65 78 2d 61 70 70 65 |-variant| ex-appe|
|00003890| 6e 64 20 65 78 2d 6f 66 | 66 73 65 74 20 65 78 2d |nd ex-of|fset ex-|
|000038a0| 63 6d 64 66 69 6c 65 20 | 22 22 20 65 78 2d 63 6d |cmdfile |"" ex-cm|
|000038b0| 64 66 69 6c 65 2d 61 72 | 67 73 20 28 28 62 79 74 |dfile-ar|gs ((byt|
|000038c0| 65 2d 63 6f 64 65 20 22 | c0 09 21 89 12 71 88 c3 |e-code "|..!..q..|
|000038d0| c4 77 88 c5 c6 21 ab b0 | c7 1e 08 8a c9 0e 08 c4 |.w...!..|........|
|000038e0| ca 23 29 ad 84 60 cb 95 | 55 29 ac 92 0e 0c cd 98 |.#)..`..|U)......|
|000038f0| ac 8c ca 16 0e cf 75 88 | c3 c4 77 88 aa 8a ca 16 |......u.|..w.....|
|00003900| 10 cf 75 88 c3 c4 77 88 | c5 d1 21 ab 8d ca 16 12 |..u...w.|..!.....|
|00003910| ca 16 0e d3 75 88 c3 c4 | 77 88 c5 d4 21 ab 9d cf |....u...|w...!...|
|00003920| 75 88 d5 60 21 88 d6 d7 | 21 88 d8 cf 21 88 60 d9 |u..`!...|!...!.`.|
|00003930| ca 21 7b 16 1a cf 75 88 | c3 c4 77 88 0e 0c db b6 |.!{...u.|..w.....|
|00003940| ab b2 60 64 53 7b 16 1c | dd 0e 0c de 98 ab 83 df |..`dS{..|........|
|00003950| aa 81 e0 0e 1c 5c 22 ab | 94 c4 16 21 0e 1c cb 95 |.....\".|...!....|
|00003960| c4 4f 16 5c 22 0e 1c cb | 94 cb 95 4f aa 81 e3 16 |.O.\"...|...O....|
|00003970| 1c 60 64 53 7c 88 64 62 | 88 e4 c4 78 88 65 60 7b |.`dS|.db|...x.e`{|
|00003980| 16 25 c4 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |.%.." [g|et-buffe|
|00003990| 72 2d 63 72 65 61 74 65 | 20 76 69 70 65 72 2d 65 |r-create| viper-e|
|000039a0| 78 2d 77 6f 72 6b 2d 62 | 75 66 2d 6e 61 6d 65 20 |x-work-b|uf-name |
|000039b0| 76 69 70 65 72 2d 65 78 | 2d 77 6f 72 6b 2d 62 75 |viper-ex|-work-bu|
|000039c0| 66 20 22 20 09 22 20 6e | 69 6c 20 6c 6f 6f 6b 69 |f " ." n|il looki|
|000039d0| 6e 67 2d 61 74 20 22 21 | 22 20 22 5b 20 09 5d 22 |ng-at "!|" "[ .]"|
|000039e0| 20 73 74 72 20 72 65 2d | 73 65 61 72 63 68 2d 62 | str re-|search-b|
|000039f0| 61 63 6b 77 61 72 64 20 | 74 20 30 20 65 78 2d 74 |ackward |t 0 ex-t|
|00003a00| 6f 6b 65 6e 20 22 72 65 | 61 64 22 20 65 78 2d 76 |oken "re|ad" ex-v|
|00003a10| 61 72 69 61 6e 74 20 31 | 20 65 78 2d 63 6d 64 66 |ariant 1| ex-cmdf|
|00003a20| 69 6c 65 20 22 3e 3e 22 | 20 65 78 2d 61 70 70 65 |ile ">>"| ex-appe|
|00003a30| 6e 64 20 32 20 22 2b 22 | 20 73 65 74 2d 6d 61 72 |nd 2 "+"| set-mar|
|00003a40| 6b 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |k re-sea|rch-forw|
|00003a50| 61 72 64 20 22 5b 20 09 | 5c 6e 5d 22 20 62 61 63 |ard "[ .|\n]" bac|
|00003a60| 6b 77 61 72 64 2d 63 68 | 61 72 20 6d 61 72 6b 20 |kward-ch|ar mark |
|00003a70| 65 78 2d 6f 66 66 73 65 | 74 20 28 22 72 65 61 64 |ex-offse|t ("read|
|00003a80| 22 20 22 77 72 69 74 65 | 22 20 22 65 64 69 74 22 |" "write|" "edit"|
|00003a90| 20 22 76 69 73 75 61 6c | 22 20 22 6e 65 78 74 22 | "visual|" "next"|
|00003aa0| 29 20 65 78 2d 66 69 6c | 65 20 73 74 72 69 6e 67 |) ex-fil|e string|
|00003ab0| 2d 6d 61 74 63 68 20 22 | 65 64 69 74 22 20 22 5b |-match "|edit" "[|
|00003ac0| 5e 20 09 5c 6e 5d 2b 5c | 5c 28 5b 20 09 5d 2b 5b |^ .\n]+\|\([ .]+[|
|00003ad0| 5e 20 09 5c 6e 5d 2b 5c | 5c 29 2a 22 20 22 5b 5e |^ .\n]+\|\)*" "[^|
|00003ae0| 20 09 5c 6e 5d 2b 22 20 | 76 69 70 65 72 2d 69 6e | .\n]+" |viper-in|
|00003af0| 63 6f 6d 70 6c 65 74 65 | 2d 65 78 2d 63 6d 64 20 |complete|-ex-cmd |
|00003b00| 65 78 2d 63 6d 64 66 69 | 6c 65 2d 61 72 67 73 20 |ex-cmdfi|le-args |
|00003b10| 22 22 20 22 20 09 5c 6e | 22 20 70 72 6f 6d 70 74 |"" " .\n|" prompt|
|00003b20| 5d 20 35 29 29 20 76 69 | 70 65 72 2d 6c 61 73 74 |] 5)) vi|per-last|
|00003b30| 2d 65 78 2d 70 72 6f 6d | 70 74 20 76 69 70 65 72 |-ex-prom|pt viper|
|00003b40| 2d 69 6e 63 6f 6d 70 6c | 65 74 65 2d 65 78 2d 63 |-incompl|ete-ex-c|
|00003b50| 6d 64 20 76 69 70 65 72 | 2d 65 78 2d 72 65 61 64 |md viper|-ex-read|
|00003b60| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 6f 72 6d 61 |-file-na|me forma|
|00003b70| 74 20 22 3a 25 73 20 22 | 5d 20 34 5d 29 0a 28 64 |t ":%s "|] 4]).(d|
|00003b80| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 63 |efalias |'viper-c|
|00003b90| 6f 6d 70 6c 65 74 65 2d | 66 69 6c 65 6e 61 6d 65 |omplete-|filename|
|00003ba0| 2d 6f 72 2d 65 78 69 74 | 20 23 5b 6e 69 6c 20 22 |-or-exit| #[nil "|
|00003bb0| c0 11 c2 0b 21 ab 83 c4 | 20 87 c5 1e 06 8a c7 0e |....!...| .......|
|00003bc0| 06 c8 c0 23 29 ad 84 60 | c9 95 55 29 ab 86 c0 16 |...#)..`|..U)....|
|00003bd0| 5c 6e cb 63 87 c8 16 5c | 6e cc 20 87 22 20 5b 74 |\n.c...\|n. ." [t|
|00003be0| 20 76 69 70 65 72 2d 6b | 65 65 70 2d 72 65 61 64 | viper-k|eep-read|
|00003bf0| 69 6e 67 2d 66 69 6c 65 | 6e 61 6d 65 20 65 78 2d |ing-file|name ex-|
|00003c00| 63 6d 64 2d 61 63 63 65 | 70 74 73 2d 6d 75 6c 74 |cmd-acce|pts-mult|
|00003c10| 69 70 6c 65 2d 66 69 6c | 65 73 2d 70 20 65 78 2d |iple-fil|es-p ex-|
|00003c20| 74 6f 6b 65 6e 20 65 78 | 69 74 2d 6d 69 6e 69 62 |token ex|it-minib|
|00003c30| 75 66 66 65 72 20 22 5e | 5b 20 09 5d 2a 21 2e 2a |uffer "^|[ .]*!.*|
|00003c40| 22 20 73 74 72 20 72 65 | 2d 73 65 61 72 63 68 2d |" str re|-search-|
|00003c50| 62 61 63 6b 77 61 72 64 | 20 6e 69 6c 20 30 20 65 |backward| nil 0 e|
|00003c60| 78 2d 63 6d 64 66 69 6c | 65 20 22 20 22 20 6d 69 |x-cmdfil|e " " mi|
|00003c70| 6e 69 62 75 66 66 65 72 | 2d 63 6f 6d 70 6c 65 74 |nibuffer|-complet|
|00003c80| 65 2d 77 6f 72 64 5d 20 | 34 20 6e 69 6c 20 6e 69 |e-word] |4 nil ni|
|00003c90| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |l]).(def|alias 'v|
|00003ca0| 69 70 65 72 2d 68 61 6e | 64 6c 65 2d 21 20 23 5b |iper-han|dle-! #[|
|00003cb0| 6e 69 6c 20 22 c0 20 c1 | 5c 6e 21 98 ab 88 0b c4 |nil ". .|\n!.....|
|00003cc0| b6 ab 83 c5 20 88 c6 63 | 87 22 20 5b 62 75 66 66 |.... ..c|." [buff|
|00003cd0| 65 72 2d 73 74 72 69 6e | 67 20 76 69 70 65 72 2d |er-strin|g viper-|
|00003ce0| 61 62 62 72 65 76 69 61 | 74 65 2d 66 69 6c 65 2d |abbrevia|te-file-|
|00003cf0| 6e 61 6d 65 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |name def|ault-dir|
|00003d00| 65 63 74 6f 72 79 20 65 | 78 2d 74 6f 6b 65 6e 20 |ectory e|x-token |
|00003d10| 28 22 72 65 61 64 22 20 | 22 77 72 69 74 65 22 29 |("read" |"write")|
|00003d20| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 22 21 | erase-b|uffer "!|
|00003d30| 22 5d 20 33 20 6e 69 6c | 20 6e 69 6c 5d 29 0a 28 |"] 3 nil| nil]).(|
|00003d40| 64 65 66 61 6c 69 61 73 | 20 27 65 78 2d 63 6d 64 |defalias| 'ex-cmd|
|00003d50| 2d 61 63 63 65 70 74 73 | 2d 6d 75 6c 74 69 70 6c |-accepts|-multipl|
|00003d60| 65 2d 66 69 6c 65 73 2d | 70 20 23 5b 28 74 6f 6b |e-files-|p #[(tok|
|00003d70| 65 6e 29 20 22 08 c1 b6 | 87 22 20 5b 74 6f 6b 65 |en) "...|." [toke|
|00003d80| 6e 20 28 22 65 64 69 74 | 22 20 22 6e 65 78 74 22 |n ("edit|" "next"|
|00003d90| 20 22 4e 65 78 74 22 29 | 5d 20 32 5d 29 0a 28 64 | "Next")|] 2]).(d|
|00003da0| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 65 |efalias |'viper-e|
|00003db0| 78 2d 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |x-read-f|ile-name|
|00003dc0| 20 23 5b 28 70 72 6f 6d | 70 74 29 20 22 c0 19 c2 | #[(prom|pt) "...|
|00003dd0| 0b 21 1b c4 1d c4 1e 06 | c4 1e 07 c4 1e 08 c9 0e |.!......|........|
|00003de0| 5c 6e 0e 0b ab 83 0b aa | 82 0e 0c 5c 22 88 cd 89 |\n......|...\"...|
|00003df0| 16 0e 89 16 07 ab c1 c4 | 16 0e cf 0e 10 09 50 c4 |........|......P.|
|00003e00| 0e 11 23 16 08 d2 d3 0e | 08 5c 22 ab 87 d4 0e 08 |..#.....|.\".....|
|00003e10| d4 51 16 08 09 0e 08 c0 | 6b ab 83 c0 aa 81 d3 0e |.Q......|k.......|
|00003e20| 08 89 c0 6b ab 83 c0 aa | 81 d3 52 11 0e 0e ad 84 |...k....|..R.....|
|00003e30| d5 0e 16 21 89 16 07 ac | 3f d2 d7 09 5c 22 15 d2 |...!....|?...\"..|
|00003e40| d8 09 5c 22 16 06 0e 16 | d9 b6 ab 92 d2 da 09 5c |..\"....|.......\|
|00003e50| 22 ab 8c cd 16 1b 0d 54 | 15 0e 1c dd 50 16 1c 09 |"......T|....P...|
|00003e60| 0d ae 81 de 0e 06 4f 2e | 06 87 22 20 5b 22 22 20 |......O.|.." ["" |
|00003e70| 73 74 72 20 63 6f 70 79 | 2d 6b 65 79 6d 61 70 20 |str copy|-keymap |
|00003e80| 6d 69 6e 69 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |minibuff|er-local|
|00003e90| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 6d 61 70 20 |-complet|ion-map |
|00003ea0| 6e 69 6c 20 62 65 67 20 | 65 6e 64 20 63 6f 6e 74 |nil beg |end cont|
|00003eb0| 20 76 61 6c 20 76 69 70 | 65 72 2d 61 64 64 2d 6b | val vip|er-add-k|
|00003ec0| 65 79 6d 61 70 20 65 78 | 2d 72 65 61 64 2d 66 69 |eymap ex|-read-fi|
|00003ed0| 6c 65 6e 61 6d 65 2d 6d | 61 70 20 76 69 70 65 72 |lename-m|ap viper|
|00003ee0| 2d 65 6d 61 63 73 2d 70 | 20 72 65 61 64 2d 66 69 |-emacs-p| read-fi|
|00003ef0| 6c 65 2d 6e 61 6d 65 2d | 6d 61 70 20 74 20 76 69 |le-name-|map t vi|
|00003f00| 70 65 72 2d 6b 65 65 70 | 2d 72 65 61 64 69 6e 67 |per-keep|-reading|
|00003f10| 2d 66 69 6c 65 6e 61 6d | 65 20 72 65 61 64 2d 66 |-filenam|e read-f|
|00003f20| 69 6c 65 2d 6e 61 6d 65 | 20 70 72 6f 6d 70 74 20 |ile-name| prompt |
|00003f30| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|00003f40| 79 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |y string|-match "|
|00003f50| 20 22 20 22 5c 5c 5c 22 | 22 20 65 78 2d 63 6d 64 | " "\\\"|" ex-cmd|
|00003f60| 2d 61 63 63 65 70 74 73 | 2d 6d 75 6c 74 69 70 6c |-accepts|-multipl|
|00003f70| 65 2d 66 69 6c 65 73 2d | 70 20 65 78 2d 74 6f 6b |e-files-|p ex-tok|
|00003f80| 65 6e 20 22 5b 5e 20 09 | 5d 22 20 22 5b 20 09 5d |en "[^ .|]" "[ .]|
|00003f90| 2a 24 22 20 28 22 72 65 | 61 64 22 20 22 77 72 69 |*$" ("re|ad" "wri|
|00003fa0| 74 65 22 29 20 22 5b 09 | 20 5d 2a 21 22 20 65 78 |te") "[.| ]*!" ex|
|00003fb0| 2d 63 6d 64 66 69 6c 65 | 20 76 69 70 65 72 2d 6c |-cmdfile| viper-l|
|00003fc0| 61 73 74 2d 65 78 2d 70 | 72 6f 6d 70 74 20 22 20 |ast-ex-p|rompt " |
|00003fd0| 21 22 20 30 5d 20 36 5d | 29 0a 28 64 65 66 61 6c |!" 0] 6]|).(defal|
|00003fe0| 69 61 73 20 27 76 69 70 | 65 72 2d 65 78 65 63 75 |ias 'vip|er-execu|
|00003ff0| 74 65 2d 65 78 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |te-ex-co|mmand #[|
|00004000| 6e 69 6c 20 22 c0 20 88 | 09 c2 98 ab 83 c3 20 87 |nil ". .|...... .|
|00004010| 09 c4 98 ab 84 c5 c6 21 | 87 09 c7 98 ab 83 c8 20 |.......!|....... |
|00004020| 87 09 c9 98 ab 83 c8 20 | 87 09 ca 98 ab 83 cb 20 |....... |....... |
|00004030| 87 09 cc 98 ab 83 cd 20 | 87 09 ce 98 ab 83 cf 20 |....... |....... |
|00004040| 87 09 d0 98 ab 83 d1 20 | 87 09 d2 98 ab 83 d3 20 |....... |....... |
|00004050| 87 09 d4 98 ab 84 d5 d4 | 21 87 09 d6 98 ab 83 d7 |........|!.......|
|00004060| 20 87 09 d8 98 ab 83 d7 | 20 87 09 d9 98 ab 83 da | .......| .......|
|00004070| 20 87 09 db 98 ab 84 c5 | dc 21 87 09 dd 98 ab 85 | .......|.!......|
|00004080| de 0e 1f 21 87 09 e0 98 | ab 86 de 0e 1f 3f 21 87 |...!....|.....?!.|
|00004090| 09 e1 98 ab 84 e2 e3 21 | 87 09 e4 98 ab 83 e5 20 |.......!|....... |
|000040a0| 87 09 e6 98 ab 83 e7 20 | 87 09 e8 98 ab 83 e9 20 |....... |....... |
|000040b0| 87 09 ea 98 ab 84 e2 eb | 21 87 09 ec 98 ab 83 ed |........|!.......|
|000040c0| 20 87 09 ee 98 ab 83 ef | 20 87 09 f0 98 ab 83 f1 | .......| .......|
|000040d0| 20 87 09 f2 98 ab 83 f3 | 20 87 09 f4 98 ab 83 f5 | .......| .......|
|000040e0| 20 87 09 f6 98 ab 83 f7 | 20 87 09 f8 98 ab 83 f9 | .......| .......|
|000040f0| 20 87 09 fa 98 ab 83 fb | 20 87 09 fc 98 ab 85 fd | .......| .......|
|00004100| dc 89 5c 22 87 09 fe 98 | ab 83 fd 20 87 09 ff 98 |..\"....|... ....|
|00004110| ab 85 81 40 00 20 87 09 | 81 41 00 98 ab 85 81 40 |...@. ..|.A.....@|
|00004120| 00 20 87 09 81 42 00 98 | ab 84 c5 c6 21 87 09 81 |. ...B..|....!...|
|00004130| 43 00 98 ab 8e 0e 1f ab | 85 81 44 00 20 87 81 45 |C.......|..D. ..E|
|00004140| 00 20 87 09 81 46 00 98 | ab 8e 0e 1f ab 85 81 45 |. ...F..|.......E|
|00004150| 00 20 87 81 44 00 20 87 | 09 81 47 00 98 ab 85 81 |. ..D. .|..G.....|
|00004160| 48 00 20 87 09 81 49 00 | 98 ab 85 81 4a 00 20 87 |H. ...I.|....J. .|
|00004170| 09 81 4b 00 98 ab 85 81 | 4c 00 20 87 09 81 4d 00 |..K.....|L. ...M.|
|00004180| 98 ab 85 81 4e 00 20 87 | 09 81 4f 00 98 ab 83 cd |....N. .|..O.....|
|00004190| 20 87 09 81 50 00 98 ab | 86 81 51 00 c6 21 87 09 | ...P...|..Q..!..|
|000041a0| 81 52 00 98 ab 85 81 53 | 00 20 87 09 81 54 00 98 |.R.....S|. ...T..|
|000041b0| ab 86 81 51 00 dc 21 87 | 09 81 55 00 98 ab 86 81 |...Q..!.|..U.....|
|000041c0| 53 00 dc 21 87 09 81 56 | 00 98 ab 86 81 51 00 dc |S..!...V|.....Q..|
|000041d0| 21 87 09 81 57 00 98 ab | 85 81 58 00 20 87 09 81 |!...W...|..X. ...|
|000041e0| 59 00 98 ab 85 81 5a 00 | 20 87 09 81 5b 00 98 ab |Y.....Z.| ...[...|
|000041f0| 85 81 5c 5c 00 20 87 09 | 81 5d 00 98 ab 86 d5 81 |..\\. ..|.]......|
|00004200| 5e 00 21 87 09 81 5f 00 | 98 ab 86 d5 81 60 00 21 |^.!..._.|.....`.!|
|00004210| 87 09 81 61 00 98 ab 84 | fd dc 21 87 09 81 62 00 |...a....|..!...b.|
|00004220| 98 ab 85 fd dc 89 5c 22 | 87 09 81 63 00 98 ac 95 |......\"|...c....|
|00004230| 09 81 64 00 98 ac 8e 09 | 81 65 00 98 ac 87 09 81 |..d.....|.e......|
|00004240| 66 00 98 ab 89 81 67 00 | 81 68 00 09 5c 22 87 09 |f.....g.|.h..\"..|
|00004250| 81 69 00 98 ac 87 09 81 | 6a 00 98 ab 89 81 67 00 |.i......|j.....g.|
|00004260| 81 6b 00 09 5c 22 87 09 | 81 6c 00 98 ac 95 09 81 |.k..\"..|.l......|
|00004270| 6d 00 98 ac 8e 09 81 6e | 00 98 ac 87 09 81 6f 00 |m......n|......o.|
|00004280| 98 ab 89 81 67 00 81 70 | 00 09 5c 22 87 81 67 00 |....g..p|..\"..g.|
|00004290| 81 71 00 09 0e 72 23 87 | 22 20 5b 76 69 70 65 72 |.q...r#.|" [viper|
|000042a0| 2d 64 65 61 63 74 69 76 | 61 74 65 2d 6d 61 72 6b |-deactiv|ate-mark|
|000042b0| 20 65 78 2d 74 6f 6b 65 | 6e 20 22 61 72 67 73 22 | ex-toke|n "args"|
|000042c0| 20 65 78 2d 61 72 67 73 | 20 22 63 6f 70 79 22 20 | ex-args| "copy" |
|000042d0| 65 78 2d 63 6f 70 79 20 | 6e 69 6c 20 22 63 64 22 |ex-copy |nil "cd"|
|000042e0| 20 65 78 2d 63 64 20 22 | 63 68 64 69 72 22 20 22 | ex-cd "|chdir" "|
|000042f0| 64 65 6c 65 74 65 22 20 | 65 78 2d 64 65 6c 65 74 |delete" |ex-delet|
|00004300| 65 20 22 65 64 69 74 22 | 20 65 78 2d 65 64 69 74 |e "edit"| ex-edit|
|00004310| 20 22 66 69 6c 65 22 20 | 76 69 70 65 72 2d 69 6e | "file" |viper-in|
|00004320| 66 6f 2d 6f 6e 2d 66 69 | 6c 65 20 22 67 6f 74 6f |fo-on-fi|le "goto|
|00004330| 22 20 65 78 2d 67 6f 74 | 6f 20 22 68 65 6c 70 22 |" ex-got|o "help"|
|00004340| 20 65 78 2d 68 65 6c 70 | 20 22 6a 6f 69 6e 22 20 | ex-help| "join" |
|00004350| 65 78 2d 6c 69 6e 65 20 | 22 6b 6d 61 72 6b 22 20 |ex-line |"kmark" |
|00004360| 65 78 2d 6d 61 72 6b 20 | 22 6d 61 72 6b 22 20 22 |ex-mark |"mark" "|
|00004370| 6d 61 70 22 20 65 78 2d | 6d 61 70 20 22 6d 6f 76 |map" ex-|map "mov|
|00004380| 65 22 20 74 20 22 6e 65 | 78 74 22 20 65 78 2d 6e |e" t "ne|xt" ex-n|
|00004390| 65 78 74 20 65 78 2d 63 | 79 63 6c 65 2d 6f 74 68 |ext ex-c|ycle-oth|
|000043a0| 65 72 2d 77 69 6e 64 6f | 77 20 22 4e 65 78 74 22 |er-windo|w "Next"|
|000043b0| 20 22 52 65 6c 61 74 65 | 64 46 69 6c 65 22 20 65 | "Relate|dFile" e|
|000043c0| 78 2d 6e 65 78 74 2d 72 | 65 6c 61 74 65 64 2d 62 |x-next-r|elated-b|
|000043d0| 75 66 66 65 72 20 31 20 | 22 70 75 74 22 20 65 78 |uffer 1 |"put" ex|
|000043e0| 2d 70 75 74 20 22 70 77 | 64 22 20 65 78 2d 70 77 |-put "pw|d" ex-pw|
|000043f0| 64 20 22 70 72 65 73 65 | 72 76 65 22 20 65 78 2d |d "prese|rve" ex-|
|00004400| 70 72 65 73 65 72 76 65 | 20 22 50 72 65 76 69 6f |preserve| "Previo|
|00004410| 75 73 52 65 6c 61 74 65 | 64 46 69 6c 65 22 20 2d |usRelate|dFile" -|
|00004420| 31 20 22 71 75 69 74 22 | 20 65 78 2d 71 75 69 74 |1 "quit"| ex-quit|
|00004430| 20 22 72 65 61 64 22 20 | 65 78 2d 72 65 61 64 20 | "read" |ex-read |
|00004440| 22 72 65 63 6f 76 65 72 | 22 20 65 78 2d 72 65 63 |"recover|" ex-rec|
|00004450| 6f 76 65 72 20 22 72 65 | 77 69 6e 64 22 20 65 78 |over "re|wind" ex|
|00004460| 2d 72 65 77 69 6e 64 20 | 22 73 75 62 6d 69 74 52 |-rewind |"submitR|
|00004470| 65 70 6f 72 74 22 20 76 | 69 70 65 72 2d 73 75 62 |eport" v|iper-sub|
|00004480| 6d 69 74 2d 72 65 70 6f | 72 74 20 22 73 65 74 22 |mit-repo|rt "set"|
|00004490| 20 65 78 2d 73 65 74 20 | 22 73 68 65 6c 6c 22 20 | ex-set |"shell" |
|000044a0| 65 78 2d 73 68 65 6c 6c | 20 22 73 6f 75 72 63 65 |ex-shell| "source|
|000044b0| 22 20 65 78 2d 73 6f 75 | 72 63 65 20 22 73 72 22 |" ex-sou|rce "sr"|
|000044c0| 20 65 78 2d 73 75 62 73 | 74 69 74 75 74 65 20 22 | ex-subs|titute "|
|000044d0| 73 75 62 73 74 69 74 75 | 74 65 22 20 22 73 75 73 |substitu|te" "sus|
|000044e0| 70 65 6e 64 22 20 73 75 | 73 70 65 6e 64 2d 65 6d |pend" su|spend-em|
|000044f0| 61 63 73 20 22 73 74 6f | 70 22 20 22 74 72 61 6e |acs "sto|p" "tran|
|00004500| 73 66 65 72 22 20 22 62 | 75 66 66 65 72 22 20 76 |sfer" "b|uffer" v|
|00004510| 69 70 65 72 2d 73 77 69 | 74 63 68 2d 74 6f 2d 62 |iper-swi|tch-to-b|
|00004520| 75 66 66 65 72 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |uffer-ot|her-wind|
|00004530| 6f 77 20 76 69 70 65 72 | 2d 73 77 69 74 63 68 2d |ow viper|-switch-|
|00004540| 74 6f 2d 62 75 66 66 65 | 72 20 22 42 75 66 66 65 |to-buffe|r "Buffe|
|00004550| 72 22 20 22 74 61 67 22 | 20 65 78 2d 74 61 67 20 |r" "tag"| ex-tag |
|00004560| 22 75 6e 64 6f 22 20 76 | 69 70 65 72 2d 75 6e 64 |"undo" v|iper-und|
|00004570| 6f 20 22 75 6e 6d 61 70 | 22 20 65 78 2d 75 6e 6d |o "unmap|" ex-unm|
|00004580| 61 70 20 22 76 65 72 73 | 69 6f 6e 22 20 76 69 70 |ap "vers|ion" vip|
|00004590| 65 72 2d 76 65 72 73 69 | 6f 6e 20 22 76 69 73 75 |er-versi|on "visu|
|000045a0| 61 6c 22 20 22 77 72 69 | 74 65 22 20 65 78 2d 77 |al" "wri|te" ex-w|
|000045b0| 72 69 74 65 20 22 57 72 | 69 74 65 22 20 73 61 76 |rite "Wr|ite" sav|
|000045c0| 65 2d 73 6f 6d 65 2d 62 | 75 66 66 65 72 73 20 22 |e-some-b|uffers "|
|000045d0| 77 71 22 20 22 57 57 72 | 69 74 65 22 20 22 78 69 |wq" "WWr|ite" "xi|
|000045e0| 74 22 20 22 79 61 6e 6b | 22 20 65 78 2d 79 61 6e |t" "yank|" ex-yan|
|000045f0| 6b 20 22 21 22 20 65 78 | 2d 63 6f 6d 6d 61 6e 64 |k "!" ex|-command|
|00004600| 20 22 3d 22 20 65 78 2d | 6c 69 6e 65 2d 6e 6f 20 | "=" ex-|line-no |
|00004610| 22 3e 22 20 22 72 69 67 | 68 74 22 20 22 3c 22 20 |">" "rig|ht" "<" |
|00004620| 22 6c 65 66 74 22 20 22 | 26 22 20 22 7e 22 20 22 |"left" "|&" "~" "|
|00004630| 61 70 70 65 6e 64 22 20 | 22 63 68 61 6e 67 65 22 |append" |"change"|
|00004640| 20 22 69 6e 73 65 72 74 | 22 20 22 6f 70 65 6e 22 | "insert|" "open"|
|00004650| 20 65 72 72 6f 72 20 22 | 60 25 73 27 3a 20 4f 62 | error "|`%s': Ob|
|00004660| 73 6f 6c 65 74 65 20 63 | 6f 6d 6d 61 6e 64 2c 20 |solete c|ommand, |
|00004670| 6e 6f 74 20 73 75 70 70 | 6f 72 74 65 64 20 62 79 |not supp|orted by|
|00004680| 20 56 69 70 65 72 22 20 | 22 61 62 62 72 65 76 69 | Viper" |"abbrevi|
|00004690| 61 74 65 22 20 22 75 6e | 61 62 62 72 65 76 69 61 |ate" "un|abbrevia|
|000046a0| 74 65 22 20 22 60 25 73 | 27 3a 20 56 69 20 61 62 |te" "`%s|': Vi ab|
|000046b0| 62 72 65 76 73 20 61 72 | 65 20 6f 62 73 6f 6c 65 |brevs ar|e obsole|
|000046c0| 74 65 2e 20 55 73 65 20 | 74 68 65 20 6d 6f 72 65 |te. Use |the more|
|000046d0| 20 70 6f 77 65 72 66 75 | 6c 20 45 6d 61 63 73 20 | powerfu|l Emacs |
|000046e0| 61 62 62 72 65 76 73 22 | 20 22 6c 69 73 74 22 20 |abbrevs"| "list" |
|000046f0| 22 70 72 69 6e 74 22 20 | 22 7a 22 20 22 23 22 20 |"print" |"z" "#" |
|00004700| 22 60 25 73 27 3a 20 43 | 6f 6d 6d 61 6e 64 20 6e |"`%s': C|ommand n|
|00004710| 6f 74 20 69 6d 70 6c 65 | 6d 65 6e 74 65 64 20 69 |ot imple|mented i|
|00004720| 6e 20 56 69 70 65 72 22 | 20 22 60 25 73 27 3a 20 |n Viper"| "`%s': |
|00004730| 25 73 22 20 76 69 70 65 | 72 2d 42 61 64 45 78 43 |%s" vipe|r-BadExC|
|00004740| 6f 6d 6d 61 6e 64 5d 20 | 34 5d 29 0a 28 64 65 66 |ommand] |4]).(def|
|00004750| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 75 6e 64 |alias 'v|iper-und|
|00004760| 69 73 70 6c 61 79 65 64 | 2d 66 69 6c 65 73 20 23 |isplayed|-files #|
|00004770| 5b 6e 69 6c 20 22 c0 c1 | c2 20 5c 22 87 22 20 5b |[nil "..|. \"." [|
|00004780| 6d 61 70 63 61 72 20 23 | 5b 28 62 29 20 22 c0 09 |mapcar #|[(b) "..|
|00004790| 21 3f ad 9f c2 09 21 89 | 1b ab 83 0b aa 94 0c ad |!?....!.|........|
|000047a0| 91 c5 09 21 89 1e 06 c7 | c8 4f c9 98 3f ad 82 0e |...!....|.O..?...|
|000047b0| 06 29 29 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |.))." [g|et-buffe|
|000047c0| 72 2d 77 69 6e 64 6f 77 | 20 62 20 62 75 66 66 65 |r-window| b buffe|
|000047d0| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 20 65 78 |r-file-n|ame f ex|
|000047e0| 2d 63 79 63 6c 65 2d 74 | 68 72 6f 75 67 68 2d 6e |-cycle-t|hrough-n|
|000047f0| 6f 6e 2d 66 69 6c 65 73 | 20 62 75 66 66 65 72 2d |on-files| buffer-|
|00004800| 6e 61 6d 65 20 73 20 30 | 20 31 20 22 20 22 5d 20 |name s 0| 1 " "] |
|00004810| 34 5d 20 62 75 66 66 65 | 72 2d 6c 69 73 74 5d 20 |4] buffe|r-list] |
|00004820| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |3]).(def|alias 'e|
|00004830| 78 2d 61 72 67 73 20 23 | 5b 6e 69 6c 20 22 c0 20 |x-args #|[nil ". |
|00004840| c1 c2 1b 1c 89 1d ab 95 | 0d 40 ab 8b c6 c7 0c 0b |........|.@......|
|00004850| 0d 40 24 14 0b 54 13 0d | 41 89 15 ac 6b 0c c1 98 |.@$..T..|A...k...|
|00004860| ab 85 c8 c9 21 aa 84 8a | ca 8b 29 2b 87 22 20 5b |....!...|..)+." [|
|00004870| 76 69 70 65 72 2d 75 6e | 64 69 73 70 6c 61 79 65 |viper-un|displaye|
|00004880| 64 2d 66 69 6c 65 73 20 | 22 22 20 31 20 66 69 6c |d-files |"" 1 fil|
|00004890| 65 2d 63 6f 75 6e 74 20 | 61 72 67 73 20 6c 20 66 |e-count |args l f|
|000048a0| 6f 72 6d 61 74 20 22 25 | 73 20 25 64 29 20 25 73 |ormat "%|s %d) %s|
|000048b0| 5c 6e 22 20 6d 65 73 73 | 61 67 65 20 22 41 6c 6c |\n" mess|age "All|
|000048c0| 20 66 69 6c 65 73 20 61 | 72 65 20 61 6c 72 65 61 | files a|re alrea|
|000048d0| 64 79 20 64 69 73 70 6c | 61 79 65 64 22 20 28 28 |dy displ|ayed" ((|
|000048e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 90 c1 c2 21 |byte-cod|e "....!|
|000048f0| 88 c1 c3 21 88 c1 0c 21 | 88 c1 c3 21 88 c1 c5 21 |...!...!|...!...!|
|00004900| 88 c1 c6 21 91 88 c7 20 | 87 22 20 5b 22 20 2a 76 |...!... |." [" *v|
|00004910| 69 70 65 72 2d 69 6e 66 | 6f 2a 22 20 70 72 69 6e |iper-inf|o*" prin|
|00004920| 63 20 22 5c 6e 5c 6e 54 | 68 65 73 65 20 66 69 6c |c "\n\nT|hese fil|
|00004930| 65 73 20 61 72 65 20 6e | 6f 74 20 64 69 73 70 6c |es are n|ot displ|
|00004940| 61 79 65 64 20 69 6e 20 | 61 6e 79 20 77 69 6e 64 |ayed in |any wind|
|00004950| 6f 77 2e 5c 6e 22 20 22 | 5c 6e 3d 3d 3d 3d 3d 3d |ow.\n" "|\n======|
|00004960| 3d 3d 3d 3d 3d 3d 3d 5c | 6e 22 20 61 72 67 73 20 |=======\|n" args |
|00004970| 22 5c 6e 54 68 65 20 6e | 75 6d 62 65 72 73 20 63 |"\nThe n|umbers c|
|00004980| 61 6e 20 62 65 20 67 69 | 76 65 6e 20 61 73 20 63 |an be gi|ven as c|
|00004990| 6f 75 6e 74 73 20 74 6f | 20 3a 6e 65 78 74 2e 20 |ounts to| :next. |
|000049a0| 22 20 22 5c 6e 5c 6e 50 | 72 65 73 73 20 61 6e 79 |" "\n\nP|ress any|
|000049b0| 20 6b 65 79 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 | key to |continue|
|000049c0| 2e 2e 2e 5c 6e 5c 6e 22 | 20 76 69 70 65 72 2d 72 |...\n\n"| viper-r|
|000049d0| 65 61 64 2d 65 76 65 6e | 74 5d 20 33 29 29 5d 20 |ead-even|t] 3))] |
|000049e0| 36 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |6]).(def|alias 'e|
|000049f0| 78 2d 63 64 20 23 5b 6e | 69 6c 20 22 c0 20 88 09 |x-cd #[n|il ". ..|
|00004a00| c2 98 ab 82 c3 11 c4 c5 | 09 21 21 89 16 06 87 22 |........|.!!...."|
|00004a10| 20 5b 76 69 70 65 72 2d | 67 65 74 2d 65 78 2d 66 | [viper-|get-ex-f|
|00004a20| 69 6c 65 20 65 78 2d 66 | 69 6c 65 20 22 22 20 22 |ile ex-f|ile "" "|
|00004a30| 7e 22 20 66 69 6c 65 2d | 6e 61 6d 65 2d 61 73 2d |~" file-|name-as-|
|00004a40| 64 69 72 65 63 74 6f 72 | 79 20 65 78 70 61 6e 64 |director|y expand|
|00004a50| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 65 66 61 75 |-file-na|me defau|
|00004a60| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 5d 20 33 5d |lt-direc|tory] 3]|
|00004a70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 78 2d |).(defal|ias 'ex-|
|00004a80| 63 6f 70 79 20 23 5b 28 | 64 65 6c 2d 66 6c 61 67 |copy #[(|del-flag|
|00004a90| 29 20 22 c0 20 88 c1 20 | 5c 6e 40 5c 6e 41 40 1b |) ". .. |\n@\nA@.|
|00004aa0| 1c 1d 0c 62 88 8a c6 0b | c7 5c 22 88 c8 c9 c7 21 |...b....|.\"....!|
|00004ab0| 60 5c 22 88 0e 5c 6e ab | 89 cb 60 c9 c7 21 5c 22 |`\"..\n.|..`..!\"|
|00004ac0| 88 aa 87 cc 60 c9 c7 21 | 5c 22 88 0e 0d ab a1 ce |....`..!|\"......|
|00004ad0| 90 cf 0e 5c 6e ac 88 0e | 10 ac 84 0e 11 ab 85 d2 |...\n...|........|
|00004ae0| d3 21 aa 85 60 c9 c7 21 | 7b 21 91 88 d4 d5 d6 8f |.!..`..!|{!......|
|00004af0| 88 29 0d d3 55 ab 85 65 | 62 88 aa 86 0d 62 88 d7 |.)..U..e|b....b..|
|00004b00| 79 88 d2 d3 21 63 2b 87 | 22 20 5b 76 69 70 65 72 |y...!c+.|" [viper|
|00004b10| 2d 64 65 66 61 75 6c 74 | 2d 65 78 2d 61 64 64 72 |-default|-ex-addr|
|00004b20| 65 73 73 65 73 20 76 69 | 70 65 72 2d 67 65 74 2d |esses vi|per-get-|
|00004b30| 65 78 2d 61 64 64 72 65 | 73 73 20 65 78 2d 61 64 |ex-addre|ss ex-ad|
|00004b40| 64 72 65 73 73 65 73 20 | 62 65 67 20 65 6e 64 20 |dresses |beg end |
|00004b50| 61 64 64 72 65 73 73 20 | 70 75 73 68 2d 6d 61 72 |address |push-mar|
|00004b60| 6b 20 74 20 76 69 70 65 | 72 2d 65 6e 6c 61 72 67 |k t vipe|r-enlarg|
|00004b70| 65 2d 72 65 67 69 6f 6e | 20 6d 61 72 6b 20 64 65 |e-region| mark de|
|00004b80| 6c 2d 66 6c 61 67 20 6b | 69 6c 6c 2d 72 65 67 69 |l-flag k|ill-regi|
|00004b90| 6f 6e 20 63 6f 70 79 2d | 72 65 67 69 6f 6e 2d 61 |on copy-|region-a|
|00004ba0| 73 2d 6b 69 6c 6c 20 65 | 78 2d 66 6c 61 67 20 22 |s-kill e|x-flag "|
|00004bb0| 20 2a 63 6f 70 79 20 74 | 65 78 74 2a 22 20 70 72 | *copy t|ext*" pr|
|00004bc0| 69 6e 63 20 65 78 2d 67 | 2d 66 6c 61 67 20 65 78 |inc ex-g|-flag ex|
|00004bd0| 2d 67 2d 76 61 72 69 61 | 6e 74 20 63 75 72 72 65 |-g-varia|nt curre|
|00004be0| 6e 74 2d 6b 69 6c 6c 20 | 30 20 6e 69 6c 20 28 62 |nt-kill |0 nil (b|
|00004bf0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 8a c2 |yte-code| "..!...|
|00004c00| c3 21 88 29 c0 87 22 20 | 5b 72 65 61 64 2d 73 74 |.!.).." |[read-st|
|00004c10| 72 69 6e 67 20 22 5b 48 | 69 74 20 72 65 74 75 72 |ring "[H|it retur|
|00004c20| 6e 20 74 6f 20 63 6f 6e | 66 69 72 6d 5d 20 22 20 |n to con|firm] " |
|00004c30| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 22 20 2a 63 |kill-buf|fer " *c|
|00004c40| 6f 70 79 20 74 65 78 74 | 2a 22 5d 20 32 29 20 28 |opy text|*"] 2) (|
|00004c50| 28 71 75 69 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |(quit (b|yte-code|
|00004c60| 20 22 8a c0 c1 21 88 29 | c2 c3 c4 5c 22 87 22 20 | "...!.)|...\"." |
|00004c70| 5b 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 22 20 2a |[kill-bu|ffer " *|
|00004c80| 63 6f 70 79 20 74 65 78 | 74 2a 22 20 73 69 67 6e |copy tex|t*" sign|
|00004c90| 61 6c 20 71 75 69 74 20 | 6e 69 6c 5d 20 33 29 29 |al quit |nil] 3))|
|00004ca0| 29 20 31 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |) 1] 5])|.(defali|
|00004cb0| 61 73 20 27 65 78 2d 64 | 65 6c 65 74 65 20 23 5b |as 'ex-d|elete #[|
|00004cc0| 6e 69 6c 20 22 c0 20 88 | c1 20 88 5c 6e 40 5c 6e |nil ". .|. .\n@\n|
|00004cd0| 41 40 1b 1c 0b 0c 56 ab | 85 c5 0e 06 21 88 8a c7 |A@....V.|....!...|
|00004ce0| 0b 0c 5c 22 88 c8 20 88 | 0e 09 ab 8b ca 60 21 88 |..\".. .|.....`!.|
|00004cf0| 0e 09 53 79 88 aa 84 ca | 0c 21 88 c7 60 cb cc 21 |..Sy....|.!..`..!|
|00004d00| 5c 22 88 0e 0d ab 97 ce | 90 cf 60 cb cc 21 7b 21 |\"......|..`..!{!|
|00004d10| 91 88 d0 d1 d2 8f 88 8a | d3 ce 21 29 aa d1 0e 14 |........|..!)....|
|00004d20| ab c7 d5 0e 14 d6 5c 22 | ab a7 0e 14 97 60 cb cc |......\"|.....`..|
|00004d30| 21 1c 1e 17 1e 18 d9 0e | 18 da 0e 18 21 3b ab 86 |!.......|....!;..|
|00004d40| da 0e 18 21 aa 81 db 0e | 17 0c 7b 50 5c 22 88 2b |...!....|..{P\".+|
|00004d50| aa 99 d5 0e 14 21 ab 8c | dc 0e 14 60 cb cc 21 d0 |.....!..|...`..!.|
|00004d60| 24 88 aa 87 c5 0e 1d 0e | 14 5c 22 88 de 60 cb cc |$.......|.\"..`..|
|00004d70| 21 5c 22 2b 87 22 20 5b | 76 69 70 65 72 2d 64 65 |!\"+." [|viper-de|
|00004d80| 66 61 75 6c 74 2d 65 78 | 2d 61 64 64 72 65 73 73 |fault-ex|-address|
|00004d90| 65 73 20 76 69 70 65 72 | 2d 67 65 74 2d 65 78 2d |es viper|-get-ex-|
|00004da0| 62 75 66 66 65 72 20 65 | 78 2d 61 64 64 72 65 73 |buffer e|x-addres|
|00004db0| 73 65 73 20 62 65 67 20 | 65 6e 64 20 65 72 72 6f |ses beg |end erro|
|00004dc0| 72 20 76 69 70 65 72 2d | 46 69 72 73 74 41 64 64 |r viper-|FirstAdd|
|00004dd0| 72 45 78 63 65 65 64 73 | 53 65 63 6f 6e 64 20 76 |rExceeds|Second v|
|00004de0| 69 70 65 72 2d 65 6e 6c | 61 72 67 65 2d 72 65 67 |iper-enl|arge-reg|
|00004df0| 69 6f 6e 20 65 78 63 68 | 61 6e 67 65 2d 70 6f 69 |ion exch|ange-poi|
|00004e00| 6e 74 2d 61 6e 64 2d 6d | 61 72 6b 20 65 78 2d 63 |nt-and-m|ark ex-c|
|00004e10| 6f 75 6e 74 20 73 65 74 | 2d 6d 61 72 6b 20 6d 61 |ount set|-mark ma|
|00004e20| 72 6b 20 74 20 65 78 2d | 66 6c 61 67 20 22 20 2a |rk t ex-|flag " *|
|00004e30| 64 65 6c 65 74 65 20 74 | 65 78 74 2a 22 20 70 72 |delete t|ext*" pr|
|00004e40| 69 6e 63 20 6e 69 6c 20 | 28 72 65 61 64 2d 73 74 |inc nil |(read-st|
|00004e50| 72 69 6e 67 20 22 5b 48 | 69 74 20 72 65 74 75 72 |ring "[H|it retur|
|00004e60| 6e 20 74 6f 20 63 6f 6e | 66 69 72 6d 5d 20 22 29 |n to con|firm] ")|
|00004e70| 20 28 28 71 75 69 74 20 | 28 62 79 74 65 2d 63 6f | ((quit |(byte-co|
|00004e80| 64 65 20 22 8a c0 c1 21 | 88 29 c2 c3 21 87 22 20 |de "...!|.)..!." |
|00004e90| 5b 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 22 20 2a |[kill-bu|ffer " *|
|00004ea0| 64 65 6c 65 74 65 20 74 | 65 78 74 2a 22 20 65 72 |delete t|ext*" er|
|00004eb0| 72 6f 72 20 22 22 5d 20 | 32 29 29 29 20 6b 69 6c |ror ""] |2))) kil|
|00004ec0| 6c 2d 62 75 66 66 65 72 | 20 65 78 2d 62 75 66 66 |l-buffer| ex-buff|
|00004ed0| 65 72 20 76 69 70 65 72 | 2d 76 61 6c 69 64 2d 72 |er viper|-valid-r|
|00004ee0| 65 67 69 73 74 65 72 20 | 28 4c 65 74 74 65 72 29 |egister |(Letter)|
|00004ef0| 20 73 74 61 72 74 20 72 | 65 67 20 73 65 74 2d 72 | start r|eg set-r|
|00004f00| 65 67 69 73 74 65 72 20 | 67 65 74 2d 72 65 67 69 |egister |get-regi|
|00004f10| 73 74 65 72 20 22 22 20 | 63 6f 70 79 2d 74 6f 2d |ster "" |copy-to-|
|00004f20| 72 65 67 69 73 74 65 72 | 20 76 69 70 65 72 2d 49 |register| viper-I|
|00004f30| 6e 76 61 6c 69 64 52 65 | 67 69 73 74 65 72 20 6b |nvalidRe|gister k|
|00004f40| 69 6c 6c 2d 72 65 67 69 | 6f 6e 5d 20 35 5d 29 0a |ill-regi|on] 5]).|
|00004f50| 28 64 65 66 61 6c 69 61 | 73 20 27 65 78 2d 65 64 |(defalia|s 'ex-ed|
|00004f60| 69 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |it #[(&o|ptional |
|00004f70| 66 69 6c 65 29 20 22 08 | ac 83 c1 20 88 5c 6e c3 |file) ".|... .\n.|
|00004f80| 98 ab 8a 0c ab 87 c5 c4 | 20 21 12 aa 8a 5c 6e c3 |........| !...\n.|
|00004f90| 98 ab 85 c6 0e 07 21 88 | c8 89 1e 09 1e 5c 6e 0c |......!.|.....\n.|
|00004fa0| ab a3 cb 20 ab 8c cc cd | ce 20 5c 22 16 5c 6e cf |... ....|. \".\n.|
|00004fb0| 16 09 aa 93 d0 70 21 ac | 8b cc d1 0c 5c 22 16 5c |.....p!.|....\".\|
|00004fc0| 6e cf 16 09 aa 83 c8 16 | 09 0e 09 ab 96 d2 0e 5c |n.......|.......\|
|00004fd0| 6e 21 ab 8a d3 c8 21 88 | d4 70 21 88 aa 86 d5 d6 |n!....!.|.p!.....|
|00004fe0| ce 20 5c 22 88 2a d7 5c | 6e 21 89 10 ac 92 d8 5c |. \".*.\|n!.....\|
|00004ff0| 6e 21 88 0e 19 da 61 ac | 83 db 20 88 65 62 88 aa |n!....a.|.. .eb..|
|00005000| 84 dc 08 21 88 0e 1d ab | 8a de 8b 88 df 20 62 88 |...!....|..... b.|
|00005010| e0 79 88 e1 0e 5c 22 5c | 6e 5c 22 87 22 20 5b 66 |.y...\"\|n\"." [f|
|00005020| 69 6c 65 20 76 69 70 65 | 72 2d 67 65 74 2d 65 78 |ile vipe|r-get-ex|
|00005030| 2d 66 69 6c 65 20 65 78 | 2d 66 69 6c 65 20 22 22 |-file ex|-file ""|
|00005040| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00005050| 65 20 76 69 70 65 72 2d | 61 62 62 72 65 76 69 61 |e viper-|abbrevia|
|00005060| 74 65 2d 66 69 6c 65 2d | 6e 61 6d 65 20 65 72 72 |te-file-|name err|
|00005070| 6f 72 20 76 69 70 65 72 | 2d 4e 6f 46 69 6c 65 53 |or viper|-NoFileS|
|00005080| 70 65 63 69 66 69 65 64 | 20 6e 69 6c 20 64 6f 2d |pecified| nil do-|
|00005090| 65 64 69 74 20 6d 73 67 | 20 62 75 66 66 65 72 2d |edit msg| buffer-|
|000050a0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 66 6f 72 6d 61 |modified|-p forma|
|000050b0| 74 20 22 42 75 66 66 65 | 72 20 25 73 20 69 73 20 |t "Buffe|r %s is |
|000050c0| 6d 6f 64 69 66 69 65 64 | 2e 20 44 69 73 63 61 72 |modified|. Discar|
|000050d0| 64 20 63 68 61 6e 67 65 | 73 3f 20 22 20 62 75 66 |d change|s? " buf|
|000050e0| 66 65 72 2d 6e 61 6d 65 | 20 74 20 76 65 72 69 66 |fer-name| t verif|
|000050f0| 79 2d 76 69 73 69 74 65 | 64 2d 66 69 6c 65 2d 6d |y-visite|d-file-m|
|00005100| 6f 64 74 69 6d 65 20 22 | 46 69 6c 65 20 25 73 20 |odtime "|File %s |
|00005110| 63 68 61 6e 67 65 64 20 | 6f 6e 20 64 69 73 6b 2e |changed |on disk.|
|00005120| 20 20 52 65 72 65 61 64 | 20 66 72 6f 6d 20 64 69 |  Reread| from di|
|00005130| 73 6b 3f 20 22 20 79 65 | 73 2d 6f 72 2d 6e 6f 2d |sk? " ye|s-or-no-|
|00005140| 70 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |p set-bu|ffer-mod|
|00005150| 69 66 69 65 64 2d 70 20 | 6b 69 6c 6c 2d 62 75 66 |ified-p |kill-buf|
|00005160| 66 65 72 20 6d 65 73 73 | 61 67 65 20 22 42 75 66 |fer mess|age "Buf|
|00005170| 66 65 72 20 25 73 20 77 | 61 73 20 6c 65 66 74 20 |fer %s w|as left |
|00005180| 69 6e 74 61 63 74 22 20 | 67 65 74 2d 66 69 6c 65 |intact" |get-file|
|00005190| 2d 62 75 66 66 65 72 20 | 65 78 2d 66 69 6e 64 2d |-buffer |ex-find-|
|000051a0| 66 69 6c 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |file maj|or-mode |
|000051b0| 64 69 72 65 64 2d 6d 6f | 64 65 20 76 69 70 65 72 |dired-mo|de viper|
|000051c0| 2d 63 68 61 6e 67 65 2d | 73 74 61 74 65 2d 74 6f |-change-|state-to|
|000051d0| 2d 76 69 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |-vi swit|ch-to-bu|
|000051e0| 66 66 65 72 20 65 78 2d | 6f 66 66 73 65 74 20 28 |ffer ex-|offset (|
|000051f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 21 89 |(byte-co|de "..!.|
|00005200| 12 71 88 65 64 7c 88 0b | c4 b1 02 88 65 62 87 22 |.q.ed|..|....eb."|
|00005210| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 | [get-bu|ffer-cre|
|00005220| 61 74 65 20 76 69 70 65 | 72 2d 65 78 2d 77 6f 72 |ate vipe|r-ex-wor|
|00005230| 6b 2d 62 75 66 2d 6e 61 | 6d 65 20 76 69 70 65 72 |k-buf-na|me viper|
|00005240| 2d 65 78 2d 77 6f 72 6b | 2d 62 75 66 20 65 78 2d |-ex-work|-buf ex-|
|00005250| 6f 66 66 73 65 74 20 22 | 5c 6e 22 5d 20 33 29 29 |offset "|\n"] 3))|
|00005260| 20 76 69 70 65 72 2d 67 | 65 74 2d 65 78 2d 61 64 | viper-g|et-ex-ad|
|00005270| 64 72 65 73 73 20 30 20 | 65 78 2d 66 69 78 75 70 |dress 0 |ex-fixup|
|00005280| 2d 68 69 73 74 6f 72 79 | 20 76 69 70 65 72 2d 6c |-history| viper-l|
|00005290| 61 73 74 2d 65 78 2d 70 | 72 6f 6d 70 74 5d 20 33 |ast-ex-p|rompt] 3|
|000052a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 78 |]).(defa|lias 'ex|
|000052b0| 2d 66 69 6e 64 2d 66 69 | 6c 65 20 23 5b 28 66 69 |-find-fi|le #[(fi|
|000052c0| 6c 65 73 70 65 63 29 20 | 22 c0 19 c2 0b 21 ab 85 |lespec) |"....!..|
|000052d0| c4 0b 21 aa 8f c5 09 0b | 5c 22 ab 86 0e 06 0b 21 |..!.....|\".....!|
|000052e0| aa 83 c4 0b 21 29 87 22 | 20 5b 22 5b 5e 2d 61 2d |....!)."| ["[^-a-|
|000052f0| 7a 41 2d 5a 30 2d 39 5f | 2e 2f 2c 7e 24 5c 5c 5d |zA-Z0-9_|./,~$\\]|
|00005300| 22 20 6e 6f 6e 73 74 61 | 6e 64 61 72 64 2d 66 69 |" nonsta|ndard-fi|
|00005310| 6c 65 6e 61 6d 65 2d 63 | 68 61 72 73 20 66 69 6c |lename-c|hars fil|
|00005320| 65 2d 65 78 69 73 74 73 | 2d 70 20 66 69 6c 65 73 |e-exists|-p files|
|00005330| 70 65 63 20 66 69 6e 64 | 2d 66 69 6c 65 20 73 74 |pec find|-file st|
|00005340| 72 69 6e 67 2d 6d 61 74 | 63 68 20 65 78 2d 6e 6f |ring-mat|ch ex-no|
|00005350| 6e 74 72 69 76 69 61 6c | 2d 66 69 6e 64 2d 66 69 |ntrivial|-find-fi|
|00005360| 6c 65 2d 66 75 6e 63 74 | 69 6f 6e 5d 20 33 5d 29 |le-funct|ion] 3])|
|00005370| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 78 2d 67 |.(defali|as 'ex-g|
|00005380| 6c 6f 62 61 6c 20 23 5b | 28 76 61 72 69 61 6e 74 |lobal #[|(variant|
|00005390| 29 20 22 08 19 5c 6e ac | 83 0b ab 87 c4 c5 09 5c |) "..\n.|.......\|
|000053a0| 22 88 aa 8e 0e 06 ab 86 | c7 12 c8 13 aa 84 c8 12 |".......|........|
|000053b0| c7 13 c9 20 88 08 ac 85 | c4 ca 09 5c 22 88 29 08 |... ....|...\".).|
|000053c0| cb 98 ab 91 0e 0c ac 87 | c4 0e 0d 21 88 aa 8c 0e |........|...!....|
|000053d0| 0c 16 0e aa 86 08 16 0e | 08 16 0c 0e 0f ac 87 64 |........|.......d|
|000053e0| 65 44 16 0f aa 83 d0 20 | 88 c7 d1 0e 0f 40 0e 0f |eD..... |.....@..|
|000053f0| 41 40 c7 1e 12 1e 13 1e | 14 1e 15 1e 16 0e 13 0e |A@......|........|
|00005400| 14 56 ab 85 c4 0e 17 21 | 88 8a d8 0e 13 0e 14 5c |.V.....!|.......\|
|00005410| 22 88 d9 20 88 c8 da 20 | 1e 1b 1e 1c d9 20 88 d1 |".. ... |..... ..|
|00005420| 79 88 6d ab 83 dd 20 88 | 0e 1c ab cf 6f ac cc 60 |y.m... .|....o..`|
|00005430| 0e 1b 59 ab c6 d1 79 88 | de 60 21 88 c7 7f 88 df |..Y...y.|.`!.....|
|00005440| 0e 0e e0 c8 21 c8 23 1e | 21 5c 6e ab 84 0e 21 ac |....!.#.|!\n...!.|
|00005450| 87 0b ab 93 0e 21 ac 8f | c7 7f 88 0e 15 54 16 15 |.....!..|.....T..|
|00005460| da 20 0e 16 42 16 16 29 | d1 79 88 6f ab 86 c7 89 |. ..B..)|.y.o....|
|00005470| 16 1c aa 37 e2 79 88 c7 | 7f 88 aa 2d 2b e3 8b 88 |...7.y..|...-+...|
|00005480| 0e 16 ad 98 0e 16 40 62 | 88 e4 0e 12 21 88 0e 15 |......@b|....!...|
|00005490| 53 16 15 0e 16 41 89 16 | 16 ac 69 c7 2d 87 22 20 |S....A..|..i.-." |
|000054a0| 5b 65 78 2d 74 6f 6b 65 | 6e 20 67 63 6f 6d 6d 61 |[ex-toke|n gcomma|
|000054b0| 6e 64 20 65 78 2d 67 2d | 66 6c 61 67 20 65 78 2d |nd ex-g-|flag ex-|
|000054c0| 67 2d 76 61 72 69 61 6e | 74 20 65 72 72 6f 72 20 |g-varian|t error |
|000054d0| 22 60 25 73 27 20 77 69 | 74 68 69 6e 20 60 67 6c |"`%s' wi|thin `gl|
|000054e0| 6f 62 61 6c 27 20 69 73 | 20 6e 6f 74 20 61 6c 6c |obal' is| not all|
|000054f0| 6f 77 65 64 22 20 76 61 | 72 69 61 6e 74 20 6e 69 |owed" va|riant ni|
|00005500| 6c 20 74 20 76 69 70 65 | 72 2d 67 65 74 2d 65 78 |l t vipe|r-get-ex|
|00005510| 2d 70 61 74 20 22 60 25 | 73 27 3a 20 4d 69 73 73 |-pat "`%|s': Miss|
|00005520| 69 6e 67 20 72 65 67 75 | 6c 61 72 20 65 78 70 72 |ing regu|lar expr|
|00005530| 65 73 73 69 6f 6e 22 20 | 22 22 20 76 69 70 65 72 |ession" |"" viper|
|00005540| 2d 73 2d 73 74 72 69 6e | 67 20 76 69 70 65 72 2d |-s-strin|g viper-|
|00005550| 4e 6f 50 72 65 76 53 65 | 61 72 63 68 20 65 78 2d |NoPrevSe|arch ex-|
|00005560| 67 2d 70 61 74 20 65 78 | 2d 61 64 64 72 65 73 73 |g-pat ex|-address|
|00005570| 65 73 20 76 69 70 65 72 | 2d 64 65 66 61 75 6c 74 |es viper|-default|
|00005580| 2d 65 78 2d 61 64 64 72 | 65 73 73 65 73 20 30 20 |-ex-addr|esses 0 |
|00005590| 63 6f 6d 2d 73 74 72 20 | 62 65 67 20 65 6e 64 20 |com-str |beg end |
|000055a0| 6d 61 72 6b 2d 63 6f 75 | 6e 74 20 6d 61 72 6b 73 |mark-cou|nt marks|
|000055b0| 20 76 69 70 65 72 2d 46 | 69 72 73 74 41 64 64 72 | viper-F|irstAddr|
|000055c0| 45 78 63 65 65 64 73 53 | 65 63 6f 6e 64 20 76 69 |ExceedsS|econd vi|
|000055d0| 70 65 72 2d 65 6e 6c 61 | 72 67 65 2d 72 65 67 69 |per-enla|rge-regi|
|000055e0| 6f 6e 20 65 78 63 68 61 | 6e 67 65 2d 70 6f 69 6e |on excha|nge-poin|
|000055f0| 74 2d 61 6e 64 2d 6d 61 | 72 6b 20 70 6f 69 6e 74 |t-and-ma|rk point|
|00005600| 2d 6d 61 72 6b 65 72 20 | 6c 69 6d 69 74 20 63 6f |-marker |limit co|
|00005610| 6e 74 20 76 69 70 65 72 | 2d 62 61 63 6b 77 61 72 |nt viper|-backwar|
|00005620| 64 2d 63 68 61 72 2d 63 | 61 72 65 66 75 6c 6c 79 |d-char-c|arefully|
|00005630| 20 73 65 74 2d 6d 61 72 | 6b 20 72 65 2d 73 65 61 | set-mar|k re-sea|
|00005640| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 6d 61 72 |rch-back|ward mar|
|00005650| 6b 20 66 6f 75 6e 64 20 | 2d 31 20 28 28 62 79 74 |k found |-1 ((byt|
|00005660| 65 2d 63 6f 64 65 20 22 | c0 09 21 89 12 71 88 60 |e-code "|..!..q.`|
|00005670| 54 64 53 7b 13 c0 87 22 | 20 5b 67 65 74 2d 62 75 |TdS{..."| [get-bu|
|00005680| 66 66 65 72 2d 63 72 65 | 61 74 65 20 76 69 70 65 |ffer-cre|ate vipe|
|00005690| 72 2d 65 78 2d 77 6f 72 | 6b 2d 62 75 66 2d 6e 61 |r-ex-wor|k-buf-na|
|000056a0| 6d 65 20 76 69 70 65 72 | 2d 65 78 2d 77 6f 72 6b |me viper|-ex-work|
|000056b0| 2d 62 75 66 20 63 6f 6d | 2d 73 74 72 5d 20 33 29 |-buf com|-str] 3)|
|000056c0| 29 20 76 69 70 65 72 2d | 65 78 5d 20 36 5d 29 0a |) viper-|ex] 6]).|
|000056d0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 78 2d 67 6f |(defalia|s 'ex-go|
|000056e0| 74 6f 20 23 5b 6e 69 6c | 20 22 08 ac 84 60 c1 42 |to #[nil| "...`.B|
|000056f0| 10 c2 60 c3 5c 22 88 08 | 40 62 88 c4 79 88 c1 87 |..`.\"..|@b..y...|
|00005700| 22 20 5b 65 78 2d 61 64 | 64 72 65 73 73 65 73 20 |" [ex-ad|dresses |
|00005710| 6e 69 6c 20 70 75 73 68 | 2d 6d 61 72 6b 20 74 20 |nil push|-mark t |
|00005720| 30 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |0] 3]).(|defalias|
|00005730| 20 27 65 78 2d 6c 69 6e | 65 20 23 5b 28 63 6f 6d | 'ex-lin|e #[(com|
|00005740| 29 20 22 c0 20 88 c1 20 | 88 5c 6e 40 5c 6e 41 40 |) ". .. |.\n@\nA@|
|00005750| c3 1c 1d 1e 06 0d 0e 06 | 56 ab 85 c7 0e 08 21 88 |........|V.....!.|
|00005760| 8a c9 0d 0e 06 5c 22 88 | ca 20 88 0e 0b ab 88 cc |.....\".|. ......|
|00005770| 60 21 88 0e 0b 79 88 0e | 0d ab 98 ce 90 cf 60 d0 |`!...y..|......`.|
|00005780| d1 21 7b 21 91 88 c3 d2 | d3 8f 88 8a d4 ce 21 88 |.!{!....|......!.|
|00005790| 29 aa 89 d5 0e 16 60 d0 | d1 21 23 88 60 14 29 0c |).....`.|.!#.`.).|
|000057a0| 53 62 88 d7 79 88 2b c3 | 87 22 20 5b 76 69 70 65 |Sb..y.+.|." [vipe|
|000057b0| 72 2d 64 65 66 61 75 6c | 74 2d 65 78 2d 61 64 64 |r-defaul|t-ex-add|
|000057c0| 72 65 73 73 65 73 20 76 | 69 70 65 72 2d 67 65 74 |resses v|iper-get|
|000057d0| 2d 65 78 2d 63 6f 75 6e | 74 20 65 78 2d 61 64 64 |-ex-coun|t ex-add|
|000057e0| 72 65 73 73 65 73 20 6e | 69 6c 20 70 6f 69 6e 74 |resses n|il point|
|000057f0| 20 62 65 67 20 65 6e 64 | 20 65 72 72 6f 72 20 76 | beg end| error v|
|00005800| 69 70 65 72 2d 46 69 72 | 73 74 41 64 64 72 45 78 |iper-Fir|stAddrEx|
|00005810| 63 65 65 64 73 53 65 63 | 6f 6e 64 20 76 69 70 65 |ceedsSec|ond vipe|
|00005820| 72 2d 65 6e 6c 61 72 67 | 65 2d 72 65 67 69 6f 6e |r-enlarg|e-region|
|00005830| 20 65 78 63 68 61 6e 67 | 65 2d 70 6f 69 6e 74 2d | exchang|e-point-|
|00005840| 61 6e 64 2d 6d 61 72 6b | 20 65 78 2d 63 6f 75 6e |and-mark| ex-coun|
|00005850| 74 20 73 65 74 2d 6d 61 | 72 6b 20 65 78 2d 66 6c |t set-ma|rk ex-fl|
|00005860| 61 67 20 22 20 2a 6a 6f | 69 6e 20 74 65 78 74 2a |ag " *jo|in text*|
|00005870| 22 20 70 72 69 6e 63 20 | 6d 61 72 6b 20 74 20 28 |" princ |mark t (|
|00005880| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c2 |byte-cod|e "..!..|
|00005890| 0b 60 c4 c5 21 23 87 22 | 20 5b 72 65 61 64 2d 73 |.`..!#."| [read-s|
|000058a0| 74 72 69 6e 67 20 22 5b | 48 69 74 20 72 65 74 75 |tring "[|Hit retu|
|000058b0| 72 6e 20 74 6f 20 63 6f | 6e 66 69 72 6d 5d 20 22 |rn to co|nfirm] "|
|000058c0| 20 65 78 2d 6c 69 6e 65 | 2d 73 75 62 72 20 63 6f | ex-line|-subr co|
|000058d0| 6d 20 6d 61 72 6b 20 74 | 5d 20 35 29 20 28 28 71 |m mark t|] 5) ((q|
|000058e0| 75 69 74 20 28 64 69 6e | 67 29 29 29 20 6b 69 6c |uit (din|g))) kil|
|000058f0| 6c 2d 62 75 66 66 65 72 | 20 65 78 2d 6c 69 6e 65 |l-buffer| ex-line|
|00005900| 2d 73 75 62 72 20 63 6f | 6d 20 30 5d 20 35 5d 29 |-subr co|m 0] 5])|
|00005910| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 78 2d 6c |.(defali|as 'ex-l|
|00005920| 69 6e 65 2d 73 75 62 72 | 20 23 5b 28 63 6f 6d 20 |ine-subr| #[(com |
|00005930| 62 65 67 20 65 6e 64 29 | 20 22 08 c1 98 ab af 5c |beg end)| ".....\|
|00005940| 6e 0b 5e 62 88 6d 3f ad | a5 60 5c 6e 0b 5d 57 ad |n.^b.m?.|.`\n.]W.|
|00005950| c8 c4 7f 88 60 5c 6e 0b | 5d 58 ab 6b 6d ac 68 c5 |....`\n.|]X.km.h.|
|00005960| 79 88 60 60 53 7c 88 0e | 06 ac 5c 5c c7 20 88 aa |y.``S|..|..\\. ..|
|00005970| 57 87 08 c8 98 ac 85 08 | c9 98 ad 9f ca 5c 6e 0b |W.......|.....\n.|
|00005980| 5e 5c 6e 0b 5d 08 c8 98 | ab 84 0e 0b aa 83 0e 0b |^\n.]...|........|
|00005990| 5b 23 88 5c 6e 0b 5d 62 | 88 c4 7f 88 cc 20 87 22 |[#.\n.]b|..... ."|
|000059a0| 20 5b 63 6f 6d 20 22 6a | 6f 69 6e 22 20 62 65 67 | [com "j|oin" beg|
|000059b0| 20 65 6e 64 20 6e 69 6c | 20 31 20 65 78 2d 76 61 | end nil| 1 ex-va|
|000059c0| 72 69 61 6e 74 20 66 69 | 78 75 70 2d 77 68 69 74 |riant fi|xup-whit|
|000059d0| 65 73 70 61 63 65 20 22 | 72 69 67 68 74 22 20 22 |espace "|right" "|
|000059e0| 6c 65 66 74 22 20 69 6e | 64 65 6e 74 2d 72 69 67 |left" in|dent-rig|
|000059f0| 69 64 6c 79 20 76 69 70 | 65 72 2d 73 68 69 66 74 |idly vip|er-shift|
|00005a00| 2d 77 69 64 74 68 20 76 | 69 70 65 72 2d 66 6f 72 |-width v|iper-for|
|00005a10| 77 61 72 64 2d 63 68 61 | 72 2d 63 61 72 65 66 75 |ward-cha|r-carefu|
|00005a20| 6c 6c 79 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |lly] 5])|.(defali|
|00005a30| 61 73 20 27 65 78 2d 6d | 61 72 6b 20 23 5b 6e 69 |as 'ex-m|ark #[ni|
|00005a40| 6c 20 22 c0 19 5c 6e ac | 84 60 c0 42 12 c3 8b 88 |l "..\n.|.`.B....|
|00005a50| 8a 5c 6e 40 62 88 c4 09 | c5 5a 54 21 2a 87 22 20 |.\n@b...|.ZT!*." |
|00005a60| 5b 6e 69 6c 20 63 68 61 | 72 20 65 78 2d 61 64 64 |[nil cha|r ex-add|
|00005a70| 72 65 73 73 65 73 20 28 | 28 62 79 74 65 2d 63 6f |resses (|(byte-co|
|00005a80| 64 65 20 22 c0 09 21 89 | 12 71 88 c3 c4 77 88 c5 |de "..!.|.q...w..|
|00005a90| c6 21 ab 99 67 16 07 c8 | 75 88 c3 c4 77 88 c5 c9 |.!..g...|u...w...|
|00005aa0| 21 ac 90 ca cb 0e 0c 0e | 0d 23 88 aa 86 ca ce 0e |!.......|.#......|
|00005ab0| 0c 5c 22 88 c4 87 22 20 | 5b 67 65 74 2d 62 75 66 |.\"..." |[get-buf|
|00005ac0| 66 65 72 2d 63 72 65 61 | 74 65 20 76 69 70 65 72 |fer-crea|te viper|
|00005ad0| 2d 65 78 2d 77 6f 72 6b | 2d 62 75 66 2d 6e 61 6d |-ex-work|-buf-nam|
|00005ae0| 65 20 76 69 70 65 72 2d | 65 78 2d 77 6f 72 6b 2d |e viper-|ex-work-|
|00005af0| 62 75 66 20 22 20 09 22 | 20 6e 69 6c 20 6c 6f 6f |buf " ."| nil loo|
|00005b00| 6b 69 6e 67 2d 61 74 20 | 22 5b 61 2d 7a 5d 22 20 |king-at |"[a-z]" |
|00005b10| 63 68 61 72 20 31 20 22 | 5b 5c 6e 7c 5d 22 20 65 |char 1 "|[\n|]" e|
|00005b20| 72 72 6f 72 20 22 60 25 | 73 27 3a 20 25 73 22 20 |rror "`%|s': %s" |
|00005b30| 65 78 2d 74 6f 6b 65 6e | 20 76 69 70 65 72 2d 53 |ex-token| viper-S|
|00005b40| 70 75 72 69 6f 75 73 54 | 65 78 74 20 22 60 25 73 |puriousT|ext "`%s|
|00005b50| 27 20 72 65 71 75 69 72 | 65 73 20 61 20 66 6f 6c |' requir|es a fol|
|00005b60| 6c 6f 77 69 6e 67 20 6c | 65 74 74 65 72 22 5d 20 |lowing l|etter"] |
|00005b70| 35 29 29 20 70 6f 69 6e | 74 2d 74 6f 2d 72 65 67 |5)) poin|t-to-reg|
|00005b80| 69 73 74 65 72 20 3f 61 | 5d 20 33 5d 29 0a 28 64 |ister ?a|] 3]).(d|
|00005b90| 65 66 61 6c 69 61 73 20 | 27 65 78 2d 6e 65 78 74 |efalias |'ex-next|
|00005ba0| 20 23 5b 28 63 79 63 6c | 65 2d 6f 74 68 65 72 2d | #[(cycl|e-other-|
|00005bb0| 77 69 6e 64 6f 77 20 26 | 6f 70 74 69 6f 6e 61 6c |window &|optional|
|00005bc0| 20 66 69 6e 64 2d 61 6c | 74 2d 66 69 6c 65 29 20 | find-al|t-file) |
|00005bd0| 22 c0 c1 8d 87 22 20 5b | 65 78 2d 65 64 69 74 20 |"...." [|ex-edit |
|00005be0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 89 19 1a |(byte-co|de "....|
|00005bf0| 0b ac b8 c4 20 88 c5 0e | 06 21 ac 8d 0e 07 c8 98 |.... ...|.!......|
|00005c00| ac 92 c9 ca 0e 07 5c 22 | ac 8b cb cc 21 88 cd cb |......\"|....!...|
|00005c10| c0 5c 22 88 aa 99 ce 0e | 07 21 89 12 cf 55 ab 82 |.\".....|.!...U..|
|00005c20| d0 12 5c 6e cf 57 ab 88 | d1 d2 21 88 aa 82 d0 12 |..\n.W..|..!.....|
|00005c30| d3 20 11 5c 6e cf 56 ab | 9a 09 ab 8a 09 40 ac 86 |. .\n.V.|.....@..|
|00005c40| 09 41 89 11 ac 76 5c 6e | 53 89 12 cf 56 ab 66 09 |.A...v\n|S...V.f.|
|00005c50| 41 11 aa 61 0b ab 84 09 | 40 aa b6 09 40 ab af d4 |A..a....|@...@...|
|00005c60| 09 40 21 ab a9 0e 15 ab | 84 d6 20 aa 82 d7 20 1e |.@!.....|.. ... .|
|00005c70| 18 d9 0e 18 21 1e 1a db | 0e 18 d4 09 40 21 5c 22 |....!...|....@!\"|
|00005c80| 88 dc 0e 1a 21 88 dd 0e | 1e 0e 07 5c 22 2a aa 83 |....!...|...\"*..|
|00005c90| d1 df 21 2a 87 22 20 5b | 6e 69 6c 20 6c 20 63 6f |..!*." [|nil l co|
|00005ca0| 75 6e 74 20 66 69 6e 64 | 2d 61 6c 74 2d 66 69 6c |unt find|-alt-fil|
|00005cb0| 65 20 76 69 70 65 72 2d | 67 65 74 2d 65 78 2d 66 |e viper-|get-ex-f|
|00005cc0| 69 6c 65 20 63 68 61 72 | 2d 6f 72 2d 73 74 72 69 |ile char|-or-stri|
|00005cd0| 6e 67 2d 70 20 65 78 2d | 6f 66 66 73 65 74 20 65 |ng-p ex-|offset e|
|00005ce0| 78 2d 66 69 6c 65 20 22 | 22 20 73 74 72 69 6e 67 |x-file "|" string|
|00005cf0| 2d 6d 61 74 63 68 20 22 | 5e 5b 30 2d 39 5d 2b 24 |-match "|^[0-9]+$|
|00005d00| 22 20 65 78 2d 65 64 69 | 74 20 74 20 74 68 72 6f |" ex-edi|t t thro|
|00005d10| 77 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 |w string|-to-int |
|00005d20| 30 20 31 20 65 72 72 6f | 72 20 22 55 73 61 67 65 |0 1 erro|r "Usage|
|00005d30| 3a 20 60 6e 65 78 74 20 | 3c 63 6f 75 6e 74 3e 27 |: `next |<count>'|
|00005d40| 20 28 63 6f 75 6e 74 20 | 3e 3d 20 30 29 22 20 76 | (count |>= 0)" v|
|00005d50| 69 70 65 72 2d 75 6e 64 | 69 73 70 6c 61 79 65 64 |iper-und|isplayed|
|00005d60| 2d 66 69 6c 65 73 20 67 | 65 74 2d 66 69 6c 65 2d |-files g|et-file-|
|00005d70| 62 75 66 66 65 72 20 63 | 79 63 6c 65 2d 6f 74 68 |buffer c|ycle-oth|
|00005d80| 65 72 2d 77 69 6e 64 6f | 77 20 67 65 74 2d 6c 72 |er-windo|w get-lr|
|00005d90| 75 2d 77 69 6e 64 6f 77 | 20 73 65 6c 65 63 74 65 |u-window| selecte|
|00005da0| 64 2d 77 69 6e 64 6f 77 | 20 77 20 77 69 6e 64 6f |d-window| w windo|
|00005db0| 77 2d 62 75 66 66 65 72 | 20 62 20 73 65 74 2d 77 |w-buffer| b set-w|
|00005dc0| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 20 62 75 72 |indow-bu|ffer bur|
|00005dd0| 79 2d 62 75 66 66 65 72 | 20 65 78 2d 66 69 78 75 |y-buffer| ex-fixu|
|00005de0| 70 2d 68 69 73 74 6f 72 | 79 20 76 69 70 65 72 2d |p-histor|y viper-|
|00005df0| 6c 61 73 74 2d 65 78 2d | 70 72 6f 6d 70 74 20 22 |last-ex-|prompt "|
|00005e00| 4e 6f 74 20 74 68 61 74 | 20 6d 61 6e 79 20 75 6e |Not that| many un|
|00005e10| 64 69 73 70 6c 61 79 65 | 64 20 66 69 6c 65 73 22 |displaye|d files"|
|00005e20| 5d 20 35 29 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |] 5)] 2]|).(defal|
|00005e30| 69 61 73 20 27 65 78 2d | 6e 65 78 74 2d 72 65 6c |ias 'ex-|next-rel|
|00005e40| 61 74 65 64 2d 62 75 66 | 66 65 72 20 23 5b 28 64 |ated-buf|fer #[(d|
|00005e50| 69 72 65 63 74 69 6f 6e | 20 26 6f 70 74 69 6f 6e |irection| &option|
|00005e60| 61 6c 20 6e 6f 2d 72 65 | 63 75 72 73 69 6f 6e 29 |al no-re|cursion)|
|00005e70| 20 22 c0 09 5c 6e 5c 22 | 88 c3 09 21 09 c4 20 c5 | "..\n\"|...!.. .|
|00005e80| 89 89 1e 06 1e 07 1e 08 | 1e 09 1e 5c 6e 1e 0b cc |........|...\n...|
|00005e90| 09 21 ab 87 cd 09 21 ce | 56 ac 84 cf d0 21 88 0e |.!....!.|V....!..|
|00005ea0| 0b 3b ac 86 cf d1 0e 0b | 5c 22 88 d2 0e 0b 21 ae |.;......|\"....!.|
|00005eb0| 8a d3 0e 0b 21 ad 84 d4 | 0e 0b 21 89 16 07 ab 8e |....!...|..!.....|
|00005ec0| d2 0e 07 21 ab 88 d5 d2 | 0e 07 21 21 ac 8c cf d6 |...!....|..!!....|
|00005ed0| 0e 0b d7 d8 0e 0b 21 21 | 23 88 0e 07 70 6b ab 8c |......!!|#...pk..|
|00005ee0| 0e 19 ac 88 da 16 08 db | 5c 6e dc 5c 22 88 0e 08 |........|\n.\"...|
|00005ef0| 3f ad cd dd 0e 07 21 89 | 16 06 ac 91 de 0e 1f 3f |?.....!.|.......?|
|00005f00| ad 81 e0 21 16 06 e1 0e | 06 0e 07 5c 22 88 e2 20 |...!....|...\".. |
|00005f10| ab 9e e3 e4 0e 06 21 21 | 88 e4 0e 06 21 e4 0e 09 |......!!|....!...|
|00005f20| 21 6b ab 85 e5 8b 88 aa | 8a e6 0e 06 21 88 aa 83 |!k......|....!...|
|00005f30| e7 8b 88 8a 0e 07 71 88 | 0e 5c 6e 11 29 e8 20 89 |......q.|.\n.). .|
|00005f40| 16 29 2e 06 87 22 20 5b | 76 69 70 65 72 2d 72 69 |.)..." [|viper-ri|
|00005f50| 6e 67 2d 72 6f 74 61 74 | 65 31 20 76 69 70 65 72 |ng-rotat|e1 viper|
|00005f60| 2d 72 65 6c 61 74 65 64 | 2d 66 69 6c 65 73 2d 61 |-related|-files-a|
|00005f70| 6e 64 2d 62 75 66 66 65 | 72 73 2d 72 69 6e 67 20 |nd-buffe|rs-ring |
|00005f80| 64 69 72 65 63 74 69 6f | 6e 20 76 69 70 65 72 2d |directio|n viper-|
|00005f90| 63 75 72 72 65 6e 74 2d | 72 69 6e 67 2d 69 74 65 |current-|ring-ite|
|00005fa0| 6d 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |m select|ed-windo|
|00005fb0| 77 20 6e 69 6c 20 77 69 | 6e 64 20 62 75 66 20 73 |w nil wi|nd buf s|
|00005fc0| 6b 69 70 2d 72 65 73 74 | 20 6f 6c 64 2d 77 69 6e |kip-rest| old-win|
|00005fd0| 20 6f 6c 64 2d 72 69 6e | 67 20 66 69 6c 65 2d 6f | old-rin|g file-o|
|00005fe0| 72 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 72 69 |r-buffer|-name ri|
|00005ff0| 6e 67 2d 70 20 72 69 6e | 67 2d 6c 65 6e 67 74 68 |ng-p rin|g-length|
|00006000| 20 30 20 65 72 72 6f 72 | 20 22 54 68 69 73 20 62 | 0 error| "This b|
|00006010| 75 66 66 65 72 20 68 61 | 73 20 6e 6f 20 72 65 6c |uffer ha|s no rel|
|00006020| 61 74 65 64 20 66 69 6c | 65 73 20 6f 72 20 62 75 |ated fil|es or bu|
|00006030| 66 66 65 72 73 22 20 22 | 46 69 6c 65 20 61 6e 64 |ffers" "|File and|
|00006040| 20 62 75 66 66 65 72 20 | 6e 61 6d 65 73 20 6d 75 | buffer |names mu|
|00006050| 73 74 20 62 65 20 73 74 | 72 69 6e 67 73 2c 20 25 |st be st|rings, %|
|00006060| 53 22 20 67 65 74 2d 62 | 75 66 66 65 72 20 66 69 |S" get-b|uffer fi|
|00006070| 6c 65 2d 65 78 69 73 74 | 73 2d 70 20 66 69 6e 64 |le-exist|s-p find|
|00006080| 2d 66 69 6c 65 2d 6e 6f | 73 65 6c 65 63 74 20 62 |-file-no|select b|
|00006090| 75 66 66 65 72 2d 6e 61 | 6d 65 20 22 44 69 64 6e |uffer-na|me "Didn|
|000060a0| 27 74 20 66 69 6e 64 20 | 62 75 66 66 65 72 20 25 |'t find |buffer %|
|000060b0| 53 20 6f 72 20 66 69 6c | 65 20 25 53 22 20 76 69 |S or fil|e %S" vi|
|000060c0| 70 65 72 2d 61 62 62 72 | 65 76 69 61 74 65 2d 66 |per-abbr|eviate-f|
|000060d0| 69 6c 65 2d 6e 61 6d 65 | 20 65 78 70 61 6e 64 2d |ile-name| expand-|
|000060e0| 66 69 6c 65 2d 6e 61 6d | 65 20 6e 6f 2d 72 65 63 |file-nam|e no-rec|
|000060f0| 75 72 73 69 6f 6e 20 74 | 20 65 78 2d 6e 65 78 74 |ursion t| ex-next|
|00006100| 2d 72 65 6c 61 74 65 64 | 2d 62 75 66 66 65 72 20 |-related|-buffer |
|00006110| 6e 6f 72 65 63 75 72 73 | 69 6f 6e 20 76 69 70 65 |norecurs|ion vipe|
|00006120| 72 2d 67 65 74 2d 76 69 | 73 69 62 6c 65 2d 62 75 |r-get-vi|sible-bu|
|00006130| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 67 65 74 2d |ffer-win|dow get-|
|00006140| 6c 72 75 2d 77 69 6e 64 | 6f 77 20 76 69 70 65 72 |lru-wind|ow viper|
|00006150| 2d 78 65 6d 61 63 73 2d | 70 20 76 69 73 69 62 6c |-xemacs-|p visibl|
|00006160| 65 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 62 75 66 |e set-wi|ndow-buf|
|00006170| 66 65 72 20 76 69 70 65 | 72 2d 77 69 6e 64 6f 77 |fer vipe|r-window|
|00006180| 2d 64 69 73 70 6c 61 79 | 2d 70 20 72 61 69 73 65 |-display|-p raise|
|00006190| 2d 66 72 61 6d 65 20 77 | 69 6e 64 6f 77 2d 66 72 |-frame w|indow-fr|
|000061a0| 61 6d 65 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ame ((by|te-code |
|000061b0| 22 c0 09 21 88 c2 c3 21 | 87 22 20 5b 73 65 6c 65 |"..!...!|." [sele|
|000061c0| 63 74 2d 77 69 6e 64 6f | 77 20 77 69 6e 64 20 73 |ct-windo|w wind s|
|000061d0| 69 74 2d 66 6f 72 20 31 | 5d 20 32 29 29 20 73 65 |it-for 1|] 2)) se|
|000061e0| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 28 28 62 79 |lect-win|dow ((by|
|000061f0| 74 65 2d 63 6f 64 65 20 | 22 c0 09 21 88 c2 c3 21 |te-code |"..!...!|
|00006200| 87 22 20 5b 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |." [sele|ct-windo|
|00006210| 77 20 77 69 6e 64 20 73 | 69 74 2d 66 6f 72 20 31 |w wind s|it-for 1|
|00006220| 5d 20 32 29 29 20 70 6f | 69 6e 74 2d 6d 61 72 6b |] 2)) po|int-mark|
|00006230| 65 72 20 76 69 70 65 72 | 2d 6c 6f 63 61 6c 2d 73 |er viper|-local-s|
|00006240| 65 61 72 63 68 2d 73 74 | 61 72 74 2d 6d 61 72 6b |earch-st|art-mark|
|00006250| 65 72 5d 20 37 5d 29 0a | 28 64 65 66 61 6c 69 61 |er] 7]).|(defalia|
|00006260| 73 20 27 65 78 2d 70 72 | 65 73 65 72 76 65 20 23 |s 'ex-pr|eserve #|
|00006270| 5b 6e 69 6c 20 22 c0 c1 | 21 88 c2 c3 21 87 22 20 |[nil "..|!...!." |
|00006280| 5b 6d 65 73 73 61 67 65 | 20 22 41 75 74 6f 73 61 |[message| "Autosa|
|00006290| 76 69 6e 67 20 61 6c 6c | 20 62 75 66 66 65 72 73 |ving all| buffers|
|000062a0| 20 74 68 61 74 20 6e 65 | 65 64 20 74 6f 20 62 65 | that ne|ed to be|
|000062b0| 20 73 61 76 65 64 2e 2e | 2e 22 20 64 6f 2d 61 75 | saved..|." do-au|
|000062c0| 74 6f 2d 73 61 76 65 20 | 74 5d 20 32 5d 29 0a 28 |to-save |t] 2]).(|
|000062d0| 64 65 66 61 6c 69 61 73 | 20 27 65 78 2d 70 75 74 |defalias| 'ex-put|
|000062e0| 20 23 5b 6e 69 6c 20 22 | 08 ac 83 60 aa 82 08 40 | #[nil "|...`...@|
|000062f0| 19 c2 20 88 0b 14 09 62 | 88 6f ab 85 c5 c6 21 aa |.. ....b|.o....!.|
|00006300| 83 c7 c6 21 29 87 22 20 | 5b 65 78 2d 61 64 64 72 |...!)." |[ex-addr|
|00006310| 65 73 73 65 73 20 70 6f | 69 6e 74 20 76 69 70 65 |esses po|int vipe|
|00006320| 72 2d 67 65 74 2d 65 78 | 2d 62 75 66 66 65 72 20 |r-get-ex|-buffer |
|00006330| 65 78 2d 62 75 66 66 65 | 72 20 76 69 70 65 72 2d |ex-buffe|r viper-|
|00006340| 75 73 65 2d 72 65 67 69 | 73 74 65 72 20 76 69 70 |use-regi|ster vip|
|00006350| 65 72 2d 50 75 74 2d 62 | 61 63 6b 20 31 20 76 69 |er-Put-b|ack 1 vi|
|00006360| 70 65 72 2d 70 75 74 2d | 62 61 63 6b 5d 20 32 5d |per-put-|back] 2]|
|00006370| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 78 2d |).(defal|ias 'ex-|
|00006380| 70 77 64 20 23 5b 6e 69 | 6c 20 22 c0 09 21 87 22 |pwd #[ni|l "..!."|
|00006390| 20 5b 6d 65 73 73 61 67 | 65 20 64 65 66 61 75 6c | [messag|e defaul|
|000063a0| 74 2d 64 69 72 65 63 74 | 6f 72 79 5d 20 32 5d 29 |t-direct|ory] 2])|
|000063b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 78 2d 71 |.(defali|as 'ex-q|
|000063c0| 75 69 74 20 23 5b 6e 69 | 6c 20 22 8a c0 09 21 89 |uit #[ni|l "...!.|
|000063d0| 12 71 88 c3 c4 21 ab 83 | c5 75 88 29 0e 06 c7 57 |.q...!..|.u.)...W|
|000063e0| ab 83 c8 20 87 c9 70 21 | 87 22 20 5b 67 65 74 2d |... ..p!|." [get-|
|000063f0| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 76 69 |buffer-c|reate vi|
+--------+-------------------------+-------------------------+--------+--------+